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Chapter  I 
BACKGROUND  AND  OBJECTIVES 

This  report  describes  the  technical  structure  and  general  application 
of  a  Container  Stuffing  Station  Simulation  Model  (SIMCON) .   The  simulation 
model  characterizes  the  operations  of  a  cargo  terminal  that  loads  (stuffs) 
cargo  into  ocean  going  containers.   Briefly,  the  model  is  oriented  toward 
a  situation  where  a  station  must  request  containers  from  steamship  lines, 
who  respond  by  providing  containers  and  container  space  on  arriving  vessels , 
(This  is  in  contrast  to  a  situation  where  a  station  has  an  unlimited  supply 
of  empty  containers  for  stuffing.)   Received  containers  are  stuffed  and 
transferred  back  to  the  carrier  for  loading  (lifting)  onto  vessels. 

The  simulation  model  is  structured  to  handle  a  variety  of  problems, 
some  of  which  are  discussed  here  and  in  the  last  chapter.   Initial  objec- 
tives were  to  provide  a  simulation  vehicle  in  which  to  normatively  examine 
the  following  aspects  of  container  stuffing  operations: 

1.  the  effects  of  reduced  cargo  volumes; 

2.  the  potential  tradeoffs  among  stuffing  operations 
performance  variables  under  given  cargo  volumes; 

3.  the  effects  of  alternative  booking  (container 
requesting)  procedures. 

However,  it  soon  became  apparent  that  a  simulation  model  which  could 
handle  the  above  problems  could  also  be  used  to  attack  other  problems 
such  as : 

1)  the  effects  of  container  size  on  stuffing  performance; 


2)  the  identification  of  optimal  stuffing  policies; 

3)  the  impact  of  cargo  arrival  forecasting  techniques. 

Therefore,  the  simulation  model  was  structured  to  provide  a  broad 
latitude  of  parameter  inputs  so  that  these  and  other  problems  could  be 
examined  without  major  programming  modifications. 

In  addition  to  the  simulation  model,  this  report  also  describes  the 
computer  programs  used  to  take  empirical  data  and  prepare  inputs  for  the 
simulation  program.   These  data  preparation  programs  are  less  general  in 
their  orientation,  and  would  most  likely  require  modification  to  suit  the 
needs  of  a  particular  problem. 

Management  Use  of  SIMCON 

Computerized  simulations  of  large  scale  industrial  operations  have 
recently  taken  important  roles  in  management  decision-making  processes; 
a  number  of  published  examples  are  listed  in  the  simulation  section  of 
the  attached  bibliography.   Simulation  has  become  a  tool  which  not  only 
provides  managers  with  additional  information  regarding  routine  decisions, 
but  also  extends  planning  horizons  and  improves  long  run  managerial 
controls . 

Generally  speaking,  a  simulation  model  mathematically  replicates  the 
major  factors  which  operate  in  the  modelled  system.   Simulations  are 
basically  used  to  answer  "what  if"  questions.   That  is,  what  are  the 
operating  characteristics  of  the  modelled  system  ±f_   certain  assumptions 
are  made  about  its  operations  ?  The  results  of  this  approach  can  be 


used  for  absolute  predictions,  or  for  relative  predictions. 

In  the  absolute  prediction  role,  it  would  be  presumed  the  assump- 
tions of  the  simulation  model  replicate  reality  so  close,  that  the  results 
of  the  model  can  be  directly  used  to  predict  effects  in  the  real  system. 
Obviously,  the  validity  of  the  results  depend  on  how  well  the  model 
represents  reality. 

In  the  relative  prediction  role,  one  is  more  concerned  with  comparing 
the  operating  characteristics  within  the  modelled  framework.   These  com- 
parisons are  then  used  to  infer  what  happens  in  the  real  system.   The 
relative  prediction  role  is  quite  often  referred  to  as  sensitivity  analysis 

Here  is  an  example  contrasting  the  absolute  prediction  role  of 
simulation  with  the  relative  role.   Suppose  one  has  a  model  which  predicts 
the  average  time  each  category  of  cargo  shipments  will  remain  in  the 
station  before  being  stuffed  into  a  container.   In  the  absolute  role,  the 
model  would  be  used  to  predict  the  average  shipment  delay  times  for  each 
category.   In  the  relative  role,  the  model  would  be  used  only  to  emphasize 
the  relative  differences  between  shipment  ages  by  category,  not  the 
absolute  ages  by  category. 

In  most  cases,  the  relative  role  of  simulation  modelling  has  greater 
credibility  because  it  does  not  presume  that  the  model  is  an  exact 
replica  of  the  real  system.   Rather,  it  presumes  that  whatever  factors 
are  being  examined  are  in  a  comparable  framework.   In  this  sense,  the 
simulation  model  is  a  yardstick  that  measures  differences  within  common 
scenarios . 

From  an  organizational  standpoint,  simulation  modelling  techniques 
may  be  handled  several  different  ways  in  an  industrial  activity.   They 


may  be  used  for  intermittant  planning  purposes,  continuous  planning 
purposes,  or  even  in  daily  operations. 

The  intermittant  planning  role  is  where  simulation  modelling  tech- 
niques are  called  into  play  when  some  planning  problem  arises  which  is 
amenable  to  available  simulation  resources.   Here,  simulation  models  are 
typically  developed  on  a  one  time  basis  to  meet  the  needs  of  the  particular 
problem;  little  or  no  effort  is  expended  to  update  models  and  data  after 
use. 

The  continuous  planning  role  is  where  simulation  modelling  techinques 
and  data  are  continually  refined  and  applied  to  recurring  planning  problems 
Here,  resources  are  expended  to  keep  the  models  up  to  date.   Individuals 
are  assigned  this  responsibility,  and  would  actively  search  for  new 
applications . 

In  an  operational  role,  simulation  would  be  used  to  solve  recurring 
operational  problems.   An  example  of  this  would  be  where  a  simulation 
model  is  used  daily  to  estimate  the  number  of  containers  needed  to  clear 
on-hand  and  forecasted  cargo  volumes  within  some  time  horizon;  the 
results  would  be  used  in  booking  containers. 

At  this  stage,  SIMCON  is  capable  of  handling  certain  planning  problems 
which  relate  to  cargo  flows  through  stuffing  stations;  specific  problems 
are  discussed  in  Chapter  VI. 


Scenario 

The  Military  Traffic  Management  Command  (MTMC) ,  formerly  known  as 
the  Military  Traffic  Management  and  Terminal  Service  (MTMTS) ,  is  a 


manager  of  transportation  services  for  the  Department  of  Defense  (DOD) . 
Detailed  descriptions  of  its  responsibilities  can  be  found  in  the 
references  in  the  bibliography;  only  general  points  and  relationships 
will  be  discussed  here. 

For  the  most  part,  MTMC  coordinates  DOD  cargo  shipments  through 
commercial  carriers  and  some  ships  of  the  Military  Sealif t  Command  (MSC) ; 
as  such,  it  relies  on  both  land  and  ocean  commercial  carriers  to  perform 
actual  transportation  services.   Nevertheless,  MTMC  does  operate  several 
container  stuffing  terminals  and  water  terminals  in  the  continental 
United  States. 

These  terminals  perform  several  functions,  among  which  include  the 
consolidation  of  export  general  cargo  shipments  for  stuffing  into 
containers.   SIMCON  is  a  model  of  their  largest  west  coast  station. 
Validation  of  the  model  was  carried  out  by  comparing  the  reasonableness 
of  model  assumptions  with  actual  practices,  subjectively  comparing 
outputs  with  actual  operations,  and,  of  course,  insuring  that  program 
logic  and  coding  was  correct. 

Report  Organization 

Chapter  II  describes  the  general  structure  of  the  simulation  model, 
and  this  is  followed  by  a  chapter  which  discusses  some  of  the  technical 
programming  aspects  of  the  model.   Chapter  IV  describes  the  approach 
and  the  computer  programs  used  to  prepare  data  inputs  for  the  simulation, 
and  this  is  followed  by  technical  aspects.   Chapter  VI  discusses  simula- 
tion outputs  and  how  these  outputs  were  used,  and  can  be  used  for 


management  purposes . 

Appendix  A  provides  brief  definitions  of  key  terms  and  abbreviations 
used  in  this  report;  it  is  suggested  that  those  unfamiliar  with  this  area 
review  these  definitions.   Appendix  B  lists  input  data  file  formats  and 
the  programs  used  to  develop  them.   Appendix  C  lists  key  variables  and 
parameters  used  in  the  simulation,  along  with  the  simulation  programs, 
its  flow  charts  and  annotation.  Appendix  D  lists  output  data  file  formats 
and  associated  programs.  Appendix  E  provides  a  listing  of  example  parameter 
inputs  and  outputs  of  the  simulation  program.   Appendix  F  lists  the  formats 
of  the  output  transaction  reports  that  may  be  requested  from  the  simulation. 


Chapter  II 
GENERAL  STRUCTURE  OF  THE  SIMULATION  MODEL 

The  simulation  model  replicates  the  major  factors  influencing 
waterfront  stuffing  station  activities.   This  includes  variations  in 
vessel  departures,  shipment  inputs,  booking  containers  aboard  vessels, 
and  stuffing  restrictions.   The  program  is  coded  in  FORTRAN  IV,  and  is 
operational  on  the  IBM  360-67  at  the  Naval  Postgraduate  School.   Infor- 
mation storage  is  handled  through  list  processing  (linking)  procedures 
so  as  to  minimize  core  requirements.   These  requirements  are  substantial 
when  simulated  shipment  accumulations  become  large. 

The  program  is  divided  into  modules  controlled  by  a  main  program; 
the  modules  and  their  interrelationships  with  data  files  and  information 
stacks  are  depicted  in  Figure  1.   Shipment  arrivals,  volumes,  and  weights 
are  fed  into  the  program  on  a  daily  basis,  and  stored.   Information  on 
future  vessel  arrivals,  container  types,  and  container  availability  are 
also  fed  into  the  program.   The  booking  routine  begins  reserving  con- 
tainers aboard  vessels  according  to  accumulated  cargo  volumes  and  fore- 
casted POD  volume  inputs.   Several  days  before  a  vessel's  arrival,  the 
container  stuffing  routine  begins  stuffing  cargo  into  the  containers 
which  can  be  loaded  into  the  reserved  spaces  on  the  vessel.   Containers 
are  drawn  from  the  empty  container  pool  which  is  replenished  by  the 
container  dispatch  routine.   The  dispatch  routine  is  keyed  to  the  con- 
tainers booked  on  arriving  vessels.   The  container  lift  routine  transfers 
stuffed  containers  onto  the  arriving  vessels. 
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The  simulation  program  uses  consignee,  POD,  and  container  type 
serial  numbers  (as  opposed  to  mnemonics)  as  designators.   This  greatly 
reduces  execution  time  because  repetitious  table  look-ups  do  not  need 
to  be  performed.   Of  course,  it  is  necessary  to  convert  input  data  and 
assign  serial  numbers  beforehand,  but  this  task  is  well  worth  the  effort 
in  terms  of  overall  efficiency. 

The  simulation  program  provides  a  general  printed  output  which 
summarizes  stuffing  operations  for  each  POD.   Additional  data  can  be 
obtained  through  program  options.   One  of  these  options  allows  for  data 
concerning  specific  transactions  to  be  written  on  external  files  for 
later  analyses. 

The  following  segments  describe  the  general  workings  of  the  simula- 
tion program  modules,  and  also  the  general  inputs  and  outputs  of  the 
program;  specific  details  of  these  programs  are  presented  in  Chapter  3. 

Shipment  Inputs 

The  shipment  input  routine  is  called  upon  daily  to  transfer  arriv- 
ing shipments  to  the  containerizable  shipments  stack.   Basically,  it 
reads  from  an  external  file  that  contains  shipment  segment  data  arranged 
by  chronilogical  date  of  arrival.   The  routine  advances  through  this  file 
each  simulated  day,  adding  records  to  the  shipments  stack.   These  data 
records  are  stored  in  the  shipments  stack  by  consignee,  in  order  of  their 
arrival  at  the  terminal,  using  a  list  linking  technique.   For  each  con- 
signee, a  pointer  points  to  the  location  of  the  first  shipment  record; 
that  record  points  to  the  next  shipment  segment  record  etc. 
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The  input  records  contain  the  following  information: 

1.  Date  of  arrival  at  the  station.   This  date  is  expressed  in 
terms  of  a  serial  number. 

2.  POD  number  of  the  shipment  segment. 

3.  Consignee  number  of  the  shipment  segment. 

4.  Weight  of  the  shipment  segment  (pounds). 

5.  Volume  of  the  shipment  segment  (cubic  feet). 

6.  A  number  designating  the  serial  order  in  which  the  shipment 
segment  arrived  during  the  day.   This  number  will  be  negative 
if  the  segment  is  not  the  last  segment  of  the  split  shipment. 
Split  segments  of  the  same  shipment  will  always  be  together 
in  the  input  file,  with  the  last  segment  having  the  positive 
serial  order  number.   (A  shipment  would  have  been  split  in 
the  data  preparation  programs  if  the  volume  or  weight  of  the 
shipment  could  not  be  contained  in  a  two  byte  integer  word.) 

7.  A  number  designating  the  nature  of  the  shipment  segment.  (Al- 
though this  field  is  included,  it  is  not  actively  used  in  the 
simulation  model.) 

The  above  data  is  transfered  to  a  record  which  is  added  to  the  shipment 
stack  of  the  designated  consignee. 

One  aspect  worth  pointing  out  here  is  that  when  the  input  routine 
reaches  the  end  of  the  shipment  input  file,  the  file  is  rewound.   The 
routine  then  continues  reading  this  file  and  automatically  increments 
arrival  dates  by  the  simulated  day  at  which  the  file  was  rewound.   In 
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other  words,  shipment  data  is  automatically  recycled  to  allow  for  repe- 
tition, if  necessary.   For  example,  if  sixty  days  of  data  are  on  the 
file,  then  the  sixty-first  simulated  day  will  have  the  same  shipment 
inputs  as  the  first  simulated  day. 

The  shipment  input  routine  has  one  other  important  function,  and 
that  has  to  do  with  cargo  volume  tabulations.   Wlien  a  shipment  is  receiv- 
ed, its  volume  is  added  to  three  accumulators.   One  is  the  total  volume 
on  hand  for  the  consignee,  another  is  the  total  volume  on-hand  for  the 
POD,  and  the  last  is  the  total  volume  that  has  arrived  for  the  POD  during 
a  weekly  period.   The  first  is  used  during  stuffing  operations  for  deter- 
mining on-hand  consignee  volumes,  and  is  decremented  when  shipments  are 
stuffed.   The  second  is  used  during  booking  operations  for  determining 
on-hand  POD  volumes,  and  is  also  decremented  when  shipments  are  stuffed. 
The  third  is  used  for  estimating  (forecasting)  cargo  input  volumes  by 
POD,  and  is  set  to  zero  at  the  beginning  of  each  week  by  the  main 
program. 

Stuffing  Procedures 

The  algorithm  used  in  the  simulation  model  is  one  which  attempts 
to  be  as  simple  as  possible,  but  yet  incorporate  the  fundamental  features 
of  the  container  stuffing  problem.   In  actual  operations  there  are  numer- 
ous factors  which  influence  container  stuffing,  e.g.  cargo  configurations, 
cargo  incompatibilities,  loading  and  manifesting  procedures,  etc.   It  be- 
came apparent  early  in  the  project  that  trying  to  incorporate  every 
detail  would  be  a  tremendous  task,  and  ultimatly  would  be  counter 
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productive  because  actual  operational  decision  rules  changed  from  day 
to  day.   Also,  in  line  with  the  simulation  philosophy,  it  is  important 
not  to  become  so  detailed  as  to  pollute  the  simulation  results  with  so 
many  interacting  factors  that  it  is  impossible  to  interprete  the  results. 
With  the  above  concepts  in  mind,  the  stuffing  algorithm  was  formu- 
lated to  include  the  following  basic  factors: 

1.  Maximum  usable  container  volume  for  each  type  of  container. 

2.  Maximum  cargo  weight  for  each  type  of  container. 

3.  Minimum  load  requirements  in  terms  of  the  minimum  volume  of 
cargo  that  must  be  on-hand  for  the  container  before  stuffing 
can  begin. 

4.  Consignee  mixing  restrictions  in  terms  of  which  consignee 
cargos  (if  any)  can  be  mixed  when  necessary. 

5.  Minimum  shipment  splitting  restrictions  in  terms  of  the  min- 
imum allowable  size  to  which  shipments  can  be  split  when 
necessary. 

6.  The  order  in  which  different  size  containers  can  be  stuffed. 
For  example,  it  would  be  desirable  to  stuff  large  vans  before 
small  vans  during  a  day's  operation  so  as  to  achieve  greater 
container  volume  utilizations. 

7.  Vessel  arrivals  and  container  availability.   That  is,  the 
procedure  initiates  stuffing  activities  for  a  POD  only  when 
containers  are  available  to  meet  booked  vessel  arrivals/de- 
partures.  In  contrast,  a  cargo  oriented  procedure  would 
initiate  stuffing  activities  solely  on  the  basis  of  cargo 
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accumulations  and  container  availability. 

General  Procedures 

The  following  will  describe  the  stuffing  procedure  in  general  terms; 
detailed  information  is  provided  in  later  chapters  and  appendices. 

Each  day  the  stuffing  routine  is  called  by  the  main  program  to  stuff 
containers  for  vessels  which  will  arrive  in  the  immediate  future  and  which 
have  containers  booked  for  the  station;  specifications  of  delays  and  how 
long  containers  can  be  stuffed  in  advance  of  the  vessel  arrival  are  input 
parameters  for  the  program.   Once  it  is  determined  that  a  set  of  containers 
should  be  stuffed,  the  routine  then  checks  to  see  if  those  type  of  containers 
are  physically  available  at  the  stuffing  station;  cargo  stuffing  then  begins 
for  those  available  containers  and  the  POD  to  which  the  vessel  is  destined. 
Actual  stuffing  procedures  are  controlled  by  three  factors:  stuffing  lists, 
minimum  load  requirements,  and  the  container  size  sequencing  procedure. 
Each  are  explained  below,  and  examples  illustrating  their  operation  follows. 

Stuffing  Lists 

Simply  stated,  the  stuffing  lists  are  inputs  to  the  simulation  pro- 
gram and  they  define  the  sequence  in  which  the  stuffing  routine  attempts 
to  load  cargo  into  containers,  and  also  specifies  which  consignee  cargos 
can  be  mixed  with  others.   There  are  a  set  of  stuffing  lists  for  each  POD. 
The  set  of  stuffing  lists  for  each  POD  are  broken  down  into  subsets  called 
chapters.   Basically,  a  stuffing  list  displays  a  set  of  consignees  whose 
cargo  can  be  mixed  in  a  single  container;  the  order  in  which  each  list  is 
sequenced  as  input  data  controls  how  cargo  will  be  stuffed  by  the  routine. 
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Also,  each  stuffing  list  specifies  an  adjustment  factor  used  in  conjunc- 
tion with  the  breakeven  point  in  order  to  determine  the  minimum  load 
requirement. 

The  stuffing  list  inputs  to  the  simulation  program  provides  the 
ability  to  influence  the  proportion  of  containers  which  are  loaded  with 
single  consignee  cargo,  the  level  to  which  containers  must  be  filled 
before  being  stuffed  and  closed  out,  and  the  various  ways  in  which 
consignee  cargos  can  be  mingled. 

Minimum  Load  Requirements 

The  minimum  load  requirement  controls  the  initiation  of  cargo 
stuffing  into  a  container.   Specifically,  it  represents  the  volume  of 
cargo  that  must  be  on-hand  for  the  consignees  on  a  stuffing  list  before 
the  algorithm  will  use  the  stuffing  list  to  load  cargo  into  the  container. 
The  minimum  load  requirement  value  is  determined  by  taking  the  breakeven 
volume  of  the  container  on-hand  and  multiplying  it  by  the  breakeven  ad- 
justment factor  on  the  stuffing  list  being  used. 

Container  Sequencing 

The  algorithm  is  designed  to  allow  for  controlling  the  order  in 
which  containers  are  stuffed  within  each  chapter  of  the  stuffing  lists. 
When  two  or  more  container  types  are  scheduled  and  available  for  stuffing 
on  the  same  day  for  the  same  POD,  the  routine  will  stuff  the  containers 
in  a  sequence  designated  by  parameter  inputs  for  each  stuffing  lists 
chapter. 

The  purpose  of  this  feature,  if  desired,  is  to  foster  higher  container 
utilization  levels.   Stuffing  of  larger  containers  prior  to  small  containers 
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in  each  chapter,  for  example,  will  necessarily  produce  the  situation 
where  more  cargo  is  available  for  the  stuffing  of  large  containers. 

Parameter  inputs  to  the  program  designate  the  sequence  in  which 
the  various  container  types  are  to  be  stuffed;  this  sequence  is  re- 
peated for  each  chapter.   For  example,  suppose  large  containers  (32 
feet  in  length  or  greater)  were  designated  to  be  stuffed  before  small 
containers.   The  routine  would  first  work  through  a  chapter  attempting 
to  stuff  available  large  containers,  and  then  return  to  the  beginning 
of  the  chapter  and  work  through  it  again  attempting  to  stuff  small  con- 
tainers.  After  both  of  these  phases  were  complete,  the  routine  would 
go  to  the  next  chapter  and  start  the  process  over  again. 

An  Example  of  Stuffing  Lists 

Assume  the  stuffing  lists  for  POD  X  are  as  follows:   (BAF  = 
breakeven  adjustment  factor) 

Chapter  1:   Stuffing  List  A:  Consignee  4  BAF  =  1.5 

Stuffing  List  B:  Consignee  7  BAF  =1.4 

Stuffing  List  C:  Consignee  6  BAF  =1.6 

Stuffing  List  D:  Consignee  3  BAF  =1.5 

Chapter  2:   Stuffing  List  E:   Consignee  4         BAF  =1.1 

Consignee  7 
Stuffing  List  F:   Consignee  5 

Consignee  3 
Stuffing  List  G:   Consignee  8 

Consignee  9 

Consignee  3 
Stuffing  List  H:   Consignee  1         BAF  =1.0 

Consignee  2 

Chapter  3:   Stuffing  List  I:   Consignee  4         BAF  =1.0 

Consignee  7 
Consignee  5 
Consignee  3 

Stuffing  List  J:   Consignee  9         BAF  =1.1 

Consignee  8 
Consignee  3 
Consignee  1 
Consignee  2 


BAF  =  1.2 
BAF  =  1.1 
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The  structure  of  the  above  lists  would  direct  the  stuffing  routine 
to  do  the  following  general  things  when  containers  are  available  for  POD 
X.   First,  the  routine  would  attempt  to  stuff  cargo  for  consignees  4,7,6, 
and  3  into  vans,  provided  that  minimum  load  requirements  could  be  met  in 
each  case;  in  this  chapter  none  of  the  cargo  would  be  mixed  with  another 
consignee's  cargo  inside  the  same  van  because  each  list  has  only  one  con- 
signee.  If  containers  were  still  available  after  the  above,  the  routine 
would  then  attempt  to  stuff  vans,  provided  that  minimum  load  requirements 
are  met,  with  the  remaining  cargo  of  consignees  (4,7),  consignees  (5,3), 
consignees  (8,9,3),  and  consignees  (1,2);  in  this  chapter,  the  routine 
would  mix  only  the  cargo  of  consignees  on  the  same  stuffing  list.   Finally, 
if  containers  were  still  available  after  the  above  activities,  the  routine 
would  attempt  to  stuff  a  van  with  the  combined  remaining  cargo  of  consignees 
(4,7,5,3)  provided  that  minimum  load  requirements  are  met;  the  same  would  be 
done  for  consignees  (9,8,3,1,2). 

As  an  illustrative  point,  note  that  the  cargo  of  consignee  6  will 
never  be  mixed  with  other  cargo  in  a  van  because  it  appears  only  on  one 
list,  and  it  is  the  only  consignee  on  that  list. 

A  Detailed  Example  of  Stuffing  Procedures 

Using  the  above  stuffing  lists,  suppose  that  ten  type  Y  containers 
are  scheduled  for  POD  X,  and  are  available  to  be  stuffed  on  a  particular 
day;  also,  suppose  that  the  breakeven  point  for  container  type  Y  to  POD 
X  is  500  cubic  feet,  and  that  the  maximum  usable  volume  in  the  container 
is  1500  cubic  feet,  and  the  maximum  allowable  cargo  weight  is  40,000 
pounds  (20  tons) . 
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The  algorithm  would  begin  in  this  case  by  identifying  the  volume 
of  cargo  on  hand  for  consignee  4.   Suppose  the  volume  of  cargo  for  this 
consignee  initially  exceeds  the  minimum  load  requirement  of  750  cu.  ft. 
(1.5x500  =  750).   The  routine  would  then  begin  loading  the  shipments 
into  the  van  on  a  strict  first-in-first-out  basis  until  either  the  cargo 
for  consignee  4  was  depleted,  or  a  shipment  is  encountered  which  if  load- 
ed would  exceed  either  the  cumulative  1500  cu.  ft.  volume  or  20  ton  weight 
constraint.   If  the  former  occurred,  then  the  container  would  be  closed 
out  and  transfered;  if  the  latter  occurred,  then  the  shipment  would  be 
split  so  that  a  portion  of  it  could  be  accommodated  and  the  van  would 
then  be  closed  out.   (Algorithm  parameters  are  set  so  that  splitting  will 
occur  only  if  the  volume  of  the  shipment  exceeds  200  cu.  ft.)   If  the 
shipment  is  too  small  to  be  split  and  yet  can  not  fit  in  the  van,  the  con- 
tainer is  closed  out  and  transfered  as  is. 

At  this  point,  the  algorithm  would  attempt  to  stuff  the  next  container 
It  would  first  check  to  see  if  the  remaining  on-hand  cargo  volume  for  consig- 
nee 4  exceeds  750  cu.  ft.;  if  so,  it  would  proceed  as  before  in  loading 
consignee  4  cargo.   If  not,  the  routine  would  jump  to  the  next  stuffing  list 
and  check  to  see  if  the  on-hand  cargo  volume  for  consignee  7  exceeds  700  cu. 
ft.  (1.4x500  =  700);  if  the  cargo  volume  exceeds  700  cu.  ft.  the  routine 
would  begin  stuffing  cargo  for  consignee  7  in  the  same  manner  as  was  done 
for  consignee  4.   If  the  volume  for  consignee  7  did  not  exceed  700  cu.  ft., 
then  the  routine  would  jump  to  the  next  stuffing  list,  which  displays  con- 
signee 6,  and  continue  the  procedure. 

The  above  general  steps  would  continue  until  either  the  ten  containers 
were  filled  or  the  routine  reached  the  end  of  the  first  chapter.   In  the 
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former  case,  the  routine  would  rearrange  the  stuffing  lists  in  the  first 
chapter  so  that  the  stuffing  list  which  was  last  used  would  be  at  the  be- 
ginning of  the  chapter.   This  is  done  to  rotate  the  order  in  which 
containers  are  supplied  to  the  various  consignees  on  the  lists;  for  example, 
if  stuffing  list  C  was  the  last  stuffing  list  to  be  used,  then  stuffing  list 
C  would  be  arranged  to  be  the  first  list  in  chapter  one,  followed  by  D,A, 
and  B.   The  procedure  followed  in  the  case  where  the  routine  reaches  the 
end  of  the  chapter  is  discussed  in  the  next  paragraph. 

Assume,  for  the  moment,  that  the  routine  had  worked  its  way  through 
chapter  one  of  the  stuffing  lists  and  still  five  containers  remained  to  be 
stuffed.   The  routine  would  then  begin  with  chapter  two  and  check  to  see  if 
the  combined  on-hand  cargo  volume  for  consignees  4  and  7  exceeds  550  cu.  ft. 
(1.1x500  =  550).   If  so,  it  would  begin  stuffing  consignee  4  cargo  into  a 
van,  and  when  depleted  it  would  begin  stuffing  consignee  7  cargo  into  the 
remainder  of  the  van.   As  before,  the  van  would  be  closed  out  if  either  the 
cargo  for  these  two  consignees  is  depleted  or  the  van  is  filled;  splitting 
rules  are  the  same  as  previously  described.   On  the  other  hand,  if  the  total 
cargo  for  consignee's  4  and  7  did  not  exceed  550  cu.  ft.,  the  routine  would 
have  jumped  to  stuffing  list  F  and  checked  to  see  if  the  total  on-hand  cargo 
volume  for  consignees  5  and  3  exceeds  600  cu.  ft.  (1.2x500  =  600),  and  so  on, 

In  conclusion,  the  routine  would  continue  through  the  stuffing  lists 
of  the  chapters  until  either  the  ten  type  Y  containers  were  stuffed,  or 
the  routine  had  worked  itself  through  the  last  chapter  of  the  stuffing  lists 
for  POD  X.   In  any  case,  the  routine  would  then  check  for  containers  des- 
tined to  other  PODs  scheduled  and  physically  available  for  stuffing  on  that 
particular  day. 
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It  is  important  to  point  out  and  emphasize  several  things  at  this 
juncture.   Firstly,  each  time  a  container  is  closed  out,  the  stuffing 
list  which  was  used  to  load  the  container  is  rotated  to  the  beginning  of 
the  chapter  so  future  stuffing  in  the  chapter  will  begin  where  it  was 
left  off;  as  mentioned,  this  is  done  to  equalize  the  allocation  of  avail- 
able containers  to  the  stuffing  lists  within  a  chapter. 

Secondly,  each  day  the  routine  begins  with  chapter  1  of  the  stuffing 
lists  for  each  POD,  and  then  proceeds  through  the  chapters  picking  up  where 
it  left  off  when  the  next  stuffable  container  type  is  the  same  POD  and  con- 
tainer type  just  stuffed;  this  feature  is  built  in  to  avoid  the  unnecessary 
repetition  of  jumping  through  stuffing  lists  which  have  been  previously  ex- 
hausted during  the  day.   On  the  other  hand,  the  routine  jumps  back  to  chapter 
1  during  a  day's  operation  when  the  POD  or  container  type  changes;  this  fea- 
ture is  incorporated  to  cover  the  possibility  that  the  new  container  type's 
different  size  may  allow  for  the  stuffing  of  cargo  previously  passed  over. 

Thirdly,  stuffing  is  performed  on  a  strict  first-in-first-out  basis 
for  each  consignee;  i.e.  no  shipment  will  be  stuffed  prior  to  shipments 
which  have  arrived  earlier  for  the  consignee. 

Fourthly,  splitting  is  undertaken  only  if  the  shipment  is  of  suffi- 
cient size  as  specified  by  program  parameters;  if  a  shipment  cannot  be 
split,  the  container  is  closed  out  and  transfered  as  is.   These  latter  two 
features  were  incorporated  to  maintain  the  simplicity  of  the  algorithm. 
Obviously,  other  more  complex  decision  rules  could  have  been  employed  and 
they,  of  course,  would  have  required  additional  parameters;  however,  it 
again  was  felt  that  simplicity  would  be  of  greater  value  here. 

Fifthly,  the  stuffing  example  previously  illustrated  was  one  where 
only  one  container  type  was  destined  to  the  POD  during  the  day.   If  two  or 
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more  container  types  had  been  scheduled  and  physically  available  for  the 
POD,  then  the  procedure  would  have  differed  to  the  following  extent.   Those 
containers  designated  by  inputs  to  be  stuffed  first  would  have  been  first 
selected  for  stuffing  in  each  chapter  before  the  other.   This  sequence  would 
cycle  through  for  each  chapter  in  the  stuffing  lists.  At  this  time  the 
sequencing  is  designated  through  data  preparation  programs  (which  prepare 
input  parameter  decks)  to  first  stuff  containers  with  a  cubic  feet  volume 
greater  than  2000  cubic  feet;  smaller  containers  are  stuffed  second. 

Creation  of  the  Stuffing  Lists 

At  this  time  the  stuffing  lists  are  created  by  a  program  that  analyzes 
traffic  volumes  to  each  consignee.   Details  of  the  program  are  presented  in 
a  later  chapter;  a  few  general  comments  are  given  here. 

For  each  POD  there  are  two  chapters  of  stuffing  lists.   The  first 
Chapter  consists  of  a  set  of  stuffing  lists  where  each  stuffing  list  contains 
only  one  consignee,  and  there  is  one  list  for  each  consignee  assigned  to  the 
POD.   The  second  chapter  consists  of  a  set  of  stuffing  lists  where  each  list 
displays  the  consignees  serviced  by  a  breakbulk  point,  and  there  is  one  list 
for  each  breakbulk  point.   The  above  structure  directs  the  stuffing  routine 
to  stuff  and  close  out  as  many  vans  with  single  consignee  cargo  as  possible 
in  the  first  chapter,  and  then  attempt  in  the  second  chapter  to  stuff  re- 
maining cargo  into  vans  where  cargo  can  be  mixed  according  to  breakbulk 
point.   A  particular  consignee  is  forced  to  receive  only  single  consignee 
vans  by  simply  not  including  its  name  on  a  list  in  chapter  two. 

Variations  in  single  consignee  measures  for  a  POD  are  achieved  by  forc- 
ing the  larger  volume  consignees  to  receive  only  single  consignee  vans;  i.e. 
cargo  for  the  larger  consignees  is  not  mixed  in  a  van  with  any  other  consignee, 
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Currently  the  program  that  generates  the  stuffing  lists  for  the  simulation 
model  creates  four  sets  of  stuffing  lists  which  are  used  to  influence 
single  consignee  measures.   The  first  set  does  not  force  any  single 
consignee  vans;  the  second  set  forces  single  consignee  vans  on  the  largest 
consignees  who  make  up  not  more  than  91%  of  the  POD's  volume;  the  third 
set  forces  single  consignee  vans  on  the  largest  consignees  who  make  up  not 
more  than  94%  of  the  POD's  volume;  and  the  fourth  set  forces  single 
consignee  vans  on  the  largest  consignees  who  make  up  not  more  than  97%  of 
the  POD's  volume. 

When  the  created  lists  are  fed  to  the  simulation  model  the  resulting 
single  consignee  measures  will,  of  course,  be  higher  because  the  lists 
only  specify  the  minimum  amount  of  volume  that  must  move  in  single  consignee 
vans.   For  example,  using  the  first  set  of  lists,  which  does  not  force  any 
single  consignee  vans,  the  routine  will  end  up  stuffing  more  than  50%  of 
the  vans  with  single  consignee  cargo  because  of  the  large  volumes  of  cargo 
available  for  certain  consignees. 

Vessel  Inputs 

The  vessel  input  routine  is  called  upon  daily  to  transfer  vessel 
schedule  data  to  the  container  vessel  stack.   This  stack  contains  data 
concerning  vessels  which  will  arrive  within  the  planning  horizon.   The 
current  planning  horizon  parameter  is  set  at  21  days;  this  means  that 
data  on  the  vessels  which  will  arrive  in  the  next  21  days  is  maintained 
in  the  container  vessel  stack. 

The  routine  reads  from  an  external  file  that  contains  vessel  seg- 
ment data  arranged  in  order  of  the  vessel's  arrival  at  the  POE.   The 
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routine  advances  through  this  file  each  simulated  day,  adding  records  to 
the  stack  for  those  vessels  which  arrive  within  the  planning  horizon.   These 
data  records  are  stored  in  their  order  of  arrival  using  a  list  linking  tech- 
nique. 

The  input  records  contain  the  following  information: 

1.  Voyage  serial  number. 

2.  The  serial  day  of  arrival  at  the  POE. 

3.  The  POD  number  to  which  this  vessel  section  is  initially 
dedicated. 

» 

4.  Number  of  immediately  following  vessel  sections  (records) 
pertaining  to  the  same  vessel/voyage.   (This  datum  is 
provided  so  that  future  versions  of  the  model  can  real- 
locate containers  dedicated  to  PODs  within  a  vessel;  the 
model  does  not  presently  do  this.) 

5 .  Container  type  number . 

6.  Number  of  containers  reserved  for  the  stuffing  station; 
this  amount  is  referred  to  as  the  'basic  reserve'. 

7.  Number  of  containers,  beyond  the  above  reserve,  which 
can  be  booked  through  the  screening  algorithm  of  the 
booking  routine.   This  amount  is  referred  to  as  the 
'beyond  basic  reserve' . 

The  above  data,  along  with  a  counter  initially  set  to  zero,  are  added  to 
the  container  vessel  segment  stack.  The  above  mentioned  counter  will  be 
used  to  identify  the  number  of  containers  booked  on  the  vessel  segment 
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for  the  stuffing  station  which  have  been  stuffed  and  awaiting  lift. 

The  vessel  schedule  file  is  "recycled"  in  the  same  manner  as  the 
shipment  file;  that  is,  the  file  is  rewound,  arrival  dates  are  adjusted 
as  the  file  is  reread.   As  before,  this  facilitates  repetitive  simulation 
of  the  data. 

Booking  Procedures 

The  approach  taken  here  to  book  space  (containers)  aboard  vessels  is 
based  upon,  a  comparison  of  forecasted  needs  with  outstanding  bookings.   If 
the  former  is  greater  than  the  latter,  then  additional  space  is  requested, 
Requests  for  additional  containers  are  met  in  different  ways  depending  on 
whether  or  not  a  vessel  has  containers  initially  dedicated  to  the  stuffing 
station. 

Generally  speaking,  the  booking  algorithm  examines  a  list  of  vessel 
arrivals.   A  parameter  limits  how  far  the  list  extends  into  the  future; 
normally,  a  three  week  horizon  is  used.   The  algorithm  then  forecasts  the 
expected  number  of  stuffed  containers  that  can  be  loaded  on  each  vessel 
upon  its  arrival.   This  forecast  takes  in  to  account  on-hand  POD  inven- 
tories, expected  volume  inputs,  and  historical  volume  utilization  factors. 
A  comparison  of  needs  with  existing  bookings  determines  whether  or  not 
additional  bookings  are  necessary.   This  procedure  is  simulated  daily. 
Details  are  described  below. 

General  Procedure 

The  container  vessel  stack  (list)  contains  vessel  data  in  order  of 
arrival  at  the  stuffing  station  port.   As  mentioned,  it  contains  data  only 
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on  those  vessels  which  arrive  during  the  designated  planning  horizon. 
Vessel  data  includes  the  following  general  information: 

1)  Date  of  vessel  arrival. 

2)  Ports  of  call. 

3)  Types  of  containers  which  can  be  loaded  aboard  the  vessel. 

4)  Vessel  voyage  number  (for  identification  purposes) . 
5.  The  number  of  containers  dedicated  for  booking  by  the 

stuffing  station;  these  are  later  referred  to  as  the 
basic  reserve. 

6)  The  number  of  containers  available  for  booking  by  the 
stuffing  station  beyond  the  above  basic  reserve. 

7)  The  number  of  containers  booked  for  the  stuffing 
station,  but  not  as  yet  stuffed  with  cargo. 

8)  The  number  of  containers  booked  on  the  vessel  (for  the 
stuffing  station)  which  have  already  been  stuffed. 

When  the  booking  routine  is  called  by  the  main  program,  it  sequentially 
examines  each  vessel  in  the  list.   For  each  vessel  it  first  determines 
if  there  is  enough  time  to  dispatch  and  stuff  containers  in  advance  of 
the  vessel's  arrival,  and  if  there  are  containers  available  for  booking 
on  the  vessel.   An  affirmative  response  on  both  these  questions  leads 
to  the  calculation  of  forecasted  requirements;  a  negative  response  on 
either  point  causes  the  routine  to  examine  the  next  vessel.   When  the 
end  of  the  stack  is  reached,  control  is  returned  to  the  main  program. 

Calculation  of  requirements  is  accomplished  by  taking  the  on-hand 
cargo  volume  for  the  POD  in  question,  adding  to  that  the  expected  cargo 
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volume  which  will  arrive  in  time  to  be  stuffed  into  containers  and  lifted 
aboard  the  vessel,  and  subtracting  from  that  the  total  volume  of  cargo 
already  booked  aboard  all  vessels  destined  for  the  POD.   The  resulting 
net  requirements  are  in  terms  of  cargo  cubic  feet.   The  routine  then 
determines  the  number  of  containers  necessary  to  meet  these  requirements , 
taking  into  account  recent  volume  utilization  factors  for  the  POD  and 
type  of  container  in  question.   A  positive  need  for  containers  leads  to 
a  booking  attempt  on  the  vessel. 

Given  a  need  for  containers,  the  routine  first  checks  to  see  if 
they  can  be  obtained  from  the  vessel's  basic  reserve.   If  so,  the  basic 
reserve  containers  are  decremented,  and  the  number  of  containers  booked 
are  increment  in  the  vessel  data  by  the  appropriate  amount.   If  additional 
containers  are  still  required,  then  there  is  an  attempt  to  book  beyond 
basic  reserve  containers;  whether  or  not  these  containers  are  obtained 
depends  on  the  following  process. 

Given  the  number  of  days  before  the  vessel's  arrival,  a  random 
process  determines  whether  bookings  will  be  allowed.   As  time  before 
arrival  increases,  the  probability  of  being  allowed  to  make  a  booking 
increases.   Input  parameters  control  the  threshold,  rate  of  increase, 
and  maximum  probability  values.   Once  it  is  determined  that  a  booking 
is  allowable,  the  routine  then  determines  how  many  of  the  beyond  reserve 
containers  will  be  made  available  for  this  particular  booking.   Input 
parameters  control  whether  all  beyond  reserve  containers  will  be  made 
available,  or  just  a  uniformly  random  portion  thereof.   Any  containers 
booked  through  this  process  are,  of  course,  reflected  through  modifica- 
tions in  the  vessel  data. 
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Control  Parameters  Review 

The  booking  procedures  described  above  can  be  controlled  through 
a  variety  of  parameter  inputs.   Most  parameters  are  fed  to  the  simula- 
tion model  when  it  executes;  however,  the  number  of  basic  reserve 
containers,  and  beyond  basic  reserve  (other)  containers  on  each  vessel 
must  be  fed  through  the  container  vessel  schedule  generation  program 
which  creates  the  schedule.   Parameter  values  and  their  application  are 
described  elsewhere  in  program  documentation,  nevertheless,  a  few  para- 
graphs will  be  used  here  to  describe  those  that  relate  directly  or 
indirectly  to  booking. 

The  parameter  CTDEL  reflects  the  time  it  takes  to  dispatch  and 
stuff  a  container  through  the  stuffing  station  and  transfer  it  back  to 
the  yard  for  lifting  onto  a  vessel.   Clearly,  one  would  not  be  concerned 
with  additional  bookings  on  a  vessel  which  is  due  to  arrive  in  less  than 
CTDEL  days  because  the  time  it  takes  to  dispatch  and  stuff  such  containers 
would  be  too  great  for  them  to  be  lifted.   Containers  already  stuffed  and 
in  the  yard  will  necessarily  have  been  booked  on  the  vessel. 

The  parameter  CFESP ,  indexed  for  the  POD,  is  the  exponential  smooth- 
ing parameter  used  for  forecasting  cargo  volume  arrivals  of  the  POD.   In 
terms  of  the  simple  exponential  smoothing  model,  CFESP  is  the  alpha  value. 
The  forecast  is  computed  by  accumulating  weekly  cargo  volume  inputs  by  POD, 
dividing  it  by  seven,  and  smoothing  the  result.   The  forecast  value  is  in 
terms  of  cubic  feet  per  day,  and  is  updated  every  seven  days. 

The  parameter  CUESP ,  indexed  by  container  type  and  by  POD,  is  the 
exponential  smoothing  parameter  used  for  forecasting  container  volume 
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utilization.   This  forecast  is  updated  each  time  a  block  of  homogeneous 
containers  are  lifted  aboard  a  vessel  using  CUESP  as  the  alpha  parameter. 

The  parameter  CFAF,  indexed  by  POD,  is  an  adjustment  factor  used  in 
calculating  expected  cargo  receipt  volumes  when  estimating  booking  require- 
ments.  Recall  that  POD  requirement  is  the  on-hand  cargo  volume  plus  the 
expected  cargo  volume  which  will  be  received  between  now  and  the  latest 
time  the  cargo  can  be  stuffed  for  loading  on  the  vessel,  minus  the  POD 
cargo  volume  already  booked.   The  parameter  CFAF  is  used  in  the  calcula- 
tion of  the  cargo  volume  that  will  be  received.   If  CFAF  equals  one,  then 
expected  receipts  will  be  the  daily  volume  forecast  times  the  effective 
number  of  days  before  the  vessel's  arrival.   If  CFAF  equals  (.5), 
then  expected  receipts  would  be  half  the  above,  etc. 

The  parameter  CRELT,  indexed  by  POD,  limits  the  time  in  which  basic 
reserve  containers  can  be  booked.   Unbooked  basic  reserve  containers  can- 
not be  booked  in  less  than  CRELT  days  before  the  vessel's  arrival.   This 
feature  is  incorporated  to  limit  bookings  on  vessels  which  arrive  in  the 
immediate  future. 

The  parameter  CSTRT,  indexed  by  POD,  is  used  for  beyond  basic  re- 
serve booking.   It  is  the  minimum  number  of  days  in  advance  of  a  vessel's 
arrival  in  which  a  booking  for  beyond  basic  reserve  containers  can  be 
made.   Any  request  not  meeting  this  limitation  will  be  rejected.   A 
request  in  advance  of  the  CSTRT  limitation  will  be  handled  in  a  random 
process  which  is  dependent  on  the  additional  parameters  XCMXLB,  and 
CRNG.   Any  requests  made  CSTRT  plus  CRNG  days  in  advance  of  a  vessel's 
arrival  will  be  rejected  (1-XCMXLB)  of  the  time.   Requests  made  between 
(CSTRT)  and  (CSTRT  +  CRNG)  days  in  advance  of  a  vessel's  arrival  will 


29 


be  randomly  rejected  on  a  linearly  decreasing  scale  from  (1.0)  to 
(1-XCMXLB). 

Assuming  a  request  is  not  rejected,  then  the  parameter  CDSTYP 
influences  its  final  fate.   If  CDSTYP  equals  0,  then  the  number  of 
containers  made  available  to  the  request  equals  the  number  of  unbooked 
beyond  basic  reserve  containers  on  the  vessel.   If  CDSTYP  equals  1, 
then  the  number  available  to  the  request  is  determined  from  a  uniformly 
distributed  random  variable  which  ranges  from  zero  to  the  number  of 
unbooked  beyond  basic  reserve  containers. 

The  above  parameters  provide  the  means  for  controlling  the  booking 
processes.   Among  other  things,  it  is  feasible  to  control  the  proportion 
of  cargo  that  ends  up  being  carried  in  the  various  vessels  by  appropri- 
ately adjusting  the  value  of  the  parameters  XCMXLB(I,J).   This  influences 
the  probability  of  accepting  a  booking  request  for  beyond  basic  reserve 
containers,  and  in  conjunction  with  vessel  arrival  frequencies,  dictates 
the  proportion  of  the  various  types  of  containers  booked  for  a  POD. 

Container  Lifts 

The  container  lift  routine  takes  the  records  in  the  stuffed  container 
stack  and  matches  them  with  vessel  segment  data  when  the  vessel  arrives. 
Also,  tabulations  and  statistical  calculations  are  performed.   In  fact,  a 
major  portion  of  the  routine  is  devoted  to  statistical  compilations.   Among 
other  things,  it  computes  average  container  volume  utilizations  that  in 
turn  are  used  as  forecasts  in  booking  procedures,  and  it  computes  cargo  and 
container  ages  for  operation  summaries. 
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Another  important  function  of  the  container  lift  routine  is  to 
reclaim  containers  that  were  dispatched  to  the  empty  container  pool, 
but  never  stuffed;  these  unused  containers  are  reclaimed  when  the  vessel 
arrives.   At  the  same  time,  the  container  lift  routine  reduces  the  booked 
container  volume  accumulator  (CVPB)  for  the  POD  by  the  volume  of  these 
unused  containers.   If  requested,  the  results  of  booking  operations  (e.g. 
number  of  containers  booked,  unbooked,  unused,  etc.)  at  the  time  of  each 
vessel's  arrival  can  be  printed,  or  written  on  external  files. 

In  summary,  this  routine  simply  closes  out  the  vessel  and  container 
data  created  by  the  other  routines. 

Container  Dispatching 

The  container  dispatching  routine  controls  the  replenishment  of 
empty  containers  to  the  empty  container  pool.   This  is  a  very  important 
factor  affecting  stuffing  because  the  simulation  model  is  structured  so 
that  stuffing  operations  begin  for  a  vessel  only  when  empty  containers 
are  available  in  the  pool.   In  review,  the  stuffing  routine  first  iden- 
tifies those  vessels  which  will  arrive  between  CSATT  and  MASDVA  days  from 
the  current  day;  the  booked  containers  on  those  vessels  are  eligible  for 
stuffing,  and  attempts  will  be  made  to  stuff  them  if  the  containers  are 
available  in  the  empty  container  pool.   (Recall  that  CSATT  is  the  time 
it  takes  to  stuff  a  container  and  transfer  it  to  the  pier.   The  variable 
MASDVA  equals  CSATT  +  MXADVS ,  where  MXADVS  is  a  parameter  representing 
the  length  of  the  stuffing  time  horizon;  the  smallest  feasible  value  for 
MXADVS  is  zero,  in  which  case  available  containers  would  have  to  be 
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stuffed  exactly  CSATT  days  before  the  lifting  vessel's  arrival.)  Hence, 
the  container  dispatching  routine  controls  container  availability  during 
the  stuffing  time  horizon. 

Presently,  a  very  simple  procedure  is  used  by  the  dispatch  routine: 
all  containers  booked  on  a  vessel  for  the  stuffing  station  are  made  avail- 
able to  the  stuffing  station  exactly  CSATT  days  before  the  vessel's  arrival, 
However,  keep  in  mind  that  if  MXADVS  is  one  or  greater,  then  some  empty 
containers  left  over  from  previous  operations  may  be  stuffed  for  a  vessel 
before  the  dispatched  empty  containers  arrive  at  the  stuffing  station  for 
that  vessel.   This  carry  over  would  occur  when  sufficient  cargo  is  not 
on-hand  for  stuffing  available  containers.   Such  leftover  containers 
would  remain  in  the  empty  container  pool  until  they  were  either  stuffed 
or  reclaimed  by  the  carrier.   The  container  lift  routine  is  programmed 
to  reclaim  all  unused  containers  when  the  vessel  arrives;  this  means 
that  leftovers  will  remain  in  the  pool  no  longer  than  CSATT  days. 

For  the  simulations  carried  out  for  the  analyses  described  in  the 
last  chapter  of  this  report  MXADVS  was  set  to  zero.   In  light  of  the 
dispatch  routine,  this  means  booked  containers  are  made  available  and 
stuffed  (if  cargo  is  available)  exactly  CSATT  days  before  the  lifting 
vessel's  arrival. 

One  additional  point  needs  to  be  mentioned  here,  and  that  is  the 
fact  that  the  empty  container  pool  is  partitioned  not  only  by  the  types 
of  containers,  but  also  by  the  POD  to  which  the  containers  are  destined. 
The  reason  for  this  is  that  if  containers  for  a  vessel  are  dispatched 
over  a  period  of  time,  then  it  becomes  necessary  to  insure  that  containers 
are  equitably  distributed  among  the  PODs .   In  other  words,  if  the  POD 
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designation  was  not  maintained,  then  those  PODs  whose  cargo  is  stuffed 
early  in  the  day  would  have  a  greater  supply  of  containers  than  those 
later  in  the  day. 

Utility  Subroutines 

The  simulation  program  employes  several  routines  which  perform 
general  functions.   They  are  briefly  discussed  here. 

The  subroutine  NXTREC  and  the  subroutine  RELREC  are  used  for  linked 
list  record  access  and  storage  respectively.   Each  time  NXTREC  is  called, 
it  identifies  the  location  of  the  next  available  core  record  so  it  can 
be  used  in  the  data  record  stacks;  it  obtains  the  record  from  a  pool  of 
unused  records.   Each  time  a  record  is  deleted  from  a  data  stack,  the 
RELREC  subroutines  is  call  to  return  the  record  back  to  the  pool. 

The  subroutine  STATE  is  simply  a  dump  routine  which  lists  certain 
variables  when  the  execution  of  the  simulation  model  is  terminated.   Iden- 
tification of  these  variables  is  accomplished  by  examining  the  routine. 

The  subroutine  RANDU  is  a  random  number  generator  used  in  the 
booking  routine.   Basically,  it  generates  a  uniformly  distributed  random 
number  between  zero  and  one.   The  "seed"  for  the  generator  is  entered  at 
the  beginning  of  each  simulation  run. 

Main  Program 

The  main  program  performs  five  major  functions.   Firstly,  it 
reads  program  control  parameters.   Secondly,  it  initializes  variables 
and  sets  up  the  record  pool.   Thirdly,  it  calls,  on  a  daily  basis,  the 
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container  dispatch  routine,  shipment  input  routine,  stuffing  routine,  etc, 
until  the  simulation  is  terminated.   Fourthly,  it  computes  average  daily 
POD  volume  inputs  from  weekly  arrivals  using  an  exponentially  weighted 
method.   Fifthly,  it  computes  summary  operation  statistics  by  POD  which 
are  printed  out,  and,  if  requested,  punched  on  cards. 

As  mentioned  elsewhere,  most  all  parameter  inputs  to  the  program 
are  entered  in  a  compacted  form.  With  exception  of  several  cards,  the 
parameter  input  to  the  program  is  created  by  data  preparation  programs 
which  are  discussed  in  later  sections. 

Summary  of  Inputs  and  Outputs 

The  simulation  program,  as  a  whole,  requires  the  following  general 
types  of  information: 

1.  The  number  of  consignees,  POD's,  and  container  types  to  be  used 
in  the  simulation. 

2.  The  desired  duration  of  the  simulation,  in  days. 

3.  The  number  of  groups  which  the  container  types  are  classified. 
(This  has  to  do  with  the  order  in  which  the  various  container 
sizes  are  stuffed  in  the  stuffing  routine  when  more  than  one 
type  of  container  is  available  for  a  POD  in  a  single  day.) 

4.  The  seed  to  the  random  number  generator  used  in  the  booking 
routine. 

5.  An  option  parameter  designating  whether  or  not  a  print  out 
is  desired  describing  the  status  of  each  vessel  after  it  is 
loaded. 
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6.  An  option  parameter  designating  whether  or  not  POD  operation 
summaries  punched  on  cards  is  desired. 

7.  The  desired  value  for  CDELCT,  which  is  the  time,  in  days,  it 
takes  a  container  to  move  from  the  carrier  to  the  stuffing 
station. 

8.  The  desired  value  for  CDELTS ,  which  is  the  time,  in  days,  it 
takes  a  container  to  be  stuffed. 

9.  The  desired  value  for  CDELTC,  which  is  the  time,  in  days,  it 
takes  a  container  to  move  from  the  stuffing  station  to  the 
carrier's  pier. 

10.  The  desired  value  for  MXADVS ,  which  is  the  stuffing  time 
horizon,  in  days.   It  specifies  the  length  of  time  in  which 
containers  can  be  stuffed  for  a  vessel  in  advance  of  the 
latest  stuffing  date.  The  latest  stuffing  date  is  CSATT  days 
in  advance  of  the  vessel's  arrival,  where  CSATT  =  CDELTS  + 
CDELTC.   Note  that  two  other  parameters  are  derived  from  the 
above  values:  MASDVA  =  CSATT  +  MXADVS,  and  CTDEL  =  CSATT  + 
CDELTS.   The  former  represents  the  maximum  number  of  days 
that  a  container  can  be  stuffed  in  advance  of  a  vessel's 
arrival.   The  latter  represents  the  minimum  number  of  days 

in  advance  of  a  vessel's  arrival  that  a  booking  can  take 
place  because  of  container  dispatching  and  turn  around  time. 

11.  A  mnemonic  code  to  identify  the  simulation  run. 

12.  A  specification  of  which  transactions  are  to  be  reported  on 
external  files.   This  specification  designates  the  logical 
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unit  number  to  be  used  for  the  report. 

13.  Parameters  for  each  container  type  concerning  the  maximum 
cargo  volume,  maximum  cargo  weight,  and  the  stuffing  group. 

14.  Parameters  for  each  container  type  and  POD  combination  con- 
cerning the  breakeven  point  volume,  the  forecasted  container 
utilization  proportion,  the  exponential  smoothing  parameter 
to  be  used  for  forecasting  utilization,  the  lost  stowage 
volume,  and  the  maximum  success  probability  for  booking 
beyond  basic  reserve  containers. 

15.  Parameters  for  each  POD  concerning  the  average  daily  forecasted 
cargo  volume,  the  exponential  smoothing  parameter  to  be  used 
for  forecasting  POD  volume,  and  the  adjustment  factor  to  be 
used  when  calculating  the  volume  of  cargo  that  will  arrive 

for  a  POD  within  a  given  time  horizon. 

16.  Booking  parameters  for  each  POD  concerning  beyond  basic  reserve 
and  basic  reserve  containers. 

17.  Stuffing  lists. 

18.  The  group  in  which  each  consignee  falls.   This  input  is 
necessary  because  a  portion  of  POD  operations  summary 
statistics  are  displayed  using  four  groups  of  consignees.   The 
data  input  here  specifies  with  which  group  each  consignee's 
data  is  to  be  tabulated  and  displayed. 

19.  Scheduled  vessel  arrivals,  the  PODs  which  they  serve,  and  the 
number  of  containers  available  on  each  vessel. 

20.  Shipment  arrivals,  including  volume  and  weight. 
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The  simulation  provides  the  following  overall  operations  data: 

1.  The  mnemonic  code  identifying  the  simulation  run. 

2.  The  mnemonic  codes  identifying  the  input  parameter  files. 

3.  The  day  at  which  the  simulation  was  terminated. 

4.  The  total  number  of  shipment  segments  which  arrived  at  the 
terminal. 

5.  The  total  number  of  containers  which  were  stuffed  at  the 
terminal. 

6.  A  listing  of  certain  variable  values  at  the  end  of  the 
simulation.   (See  the  utility  subroutine  STATE). 

The  following  operations  statistics  are  listed  for  each  group  of 
consignees  at  a  POD: 

1.  Number  of  shipments  stuffed. 

2.  Minimum  shipment  age  at  stuff. 

3.  Average  shipment  age  at  stuff. 

4.  Maximum  shipment  age  at  stuff. 

5.  Standard  deviation  of  shipment  age  at  stuff. 

6.  Total  cargo  volume  stuffed  (cubic  feet). 

7.  Percent  of  cargo  that  was  stuffed  in  single  consignee  vans. 

8.  Container  volume  utilization  (percent)  for  all  vans.  This  was 
computed  by  taking  the  total  volume  of  all  containers  stuffed, 
and  dividing  that  into  the  total  volume  of  cargo  stuffed. 

9.  Container  volume  utilization  in  single  consignee  vans  (percent) 
10.  Container  volume  utilization  in  mixed  consignee  vans  (percent). 
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11.  Total  cargo  weight  stuffed  (pounds). 

12.  Container  weight  utilization  (percent). 

The  following  operations  statistics  are  listed  for  each  POD: 

1.  Number  of  shipments  stuffed. 

2.  Average  shipment  age  at  stuff. 

3.  Standard  deviation  of  shipment  age  at  stuff. 

4.  Total  cargo  volume  stuffed  (cubic  feet). 

5.  Proportion  of  cargo  stuffed  in  single  consignee  vans. 

6.  Container  volume  utilization  (proportion)  for  all  vans. 

7.  Container  volume  utilization  in  single  consignee  vans  (pro- 
portion) . 

8.  Container  volume  utilization  in  mixed  consignee  vans  (pro- 
portion) . 

9.  Total  cargo  weight  stuffed  (pounds). 

10.  Container  weight  utilization  (proportion). 

11.  Number  of  vessels  which  carried  containers  for  the  POD  during 
the  simulated  time  span.   (This  is  referred  to  as  the  number 
of  lifts.) 

12.  Average  days  between  lifts. 

13.  Standard  deviation  of  days  between  lifts. 

14.  Average  container  age  when  lifted  aboard  the  vessel.  Container 
age  at  lift  is  defined  here  as  the  time  between  the  stuffing  of 
a  container  and  its  loading  aboard  a  vessel. 

15.  Standard  deviation  of  container  age  at  lift. 
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16.  The  following  information  is  given  for  single  consignee 
containers,  mixed  consignee  containers,  and  both  of  the  above 
for  each  container  type  that  carried  cargo  to  the  POD: 

a.  Number  of  containers. 

b.  Number  of  shipments  stuffed  in  those  containers. 

c.  Volume  utilization  in  those  containers,  (propor- 
tion) . 

d.  Cargo  volume  stuffed  in  those  containers,  (cubic 
feet) . 

17.  The  average  days  between  lifts  (ADBL) ,  and  the  standard  devi- 
ation of  days  between  lifts  for  each  type  of  container. 

If  specified  by  the  user,  the  above  POD  information  can  be  punched  directly 
on  .cards  in  a  compressed  format. 

Data  on  individual  transactions  in  the  simulation  can  also  be  written 
out  on  external  files.   Presently,  data  relating  to  the  following  trans- 
actions/events can  be  reported  if  desired: 

1.  The  waiving  of  minimum  container  load  requirements  because  of 
cargo  configuration. 

2.  The  stuffing  of  a  shipment  segment. 

3.  The  completion  of  a  vessel  loading. 

4.  The  completion  of  a  container  stuffing. 

The  above  four  transactions/events  give  rise  to  six  possible  reports. 
Details  of  these  reports  are  given  in  a  later  section,  however,  it 
should  be  pointed  out  here  that  the  above  reports  are  outputed  in 
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binary  form  and  can  be  printed  only  after  decimal  conversion. 

Nevertheless,  the  simulation  program  does  provide  the  additional 
option  of  having  certain  vessel  data  directly  printed  in  the  output. 
This  listing  is  referred  to  as  the  Container  Lift  Report,  and  provides 
the  following  information  on  each  vessel  segment  which  arrives  at  the 
POE: 

1.  The  day  which  it  arrives/departs. 

2.  Voyage  number  of  the  vessel. 

3.  The  POD  at  which  it  calls. 

4.  The  container  type  which  it  carries. 

5.  The  number  of  containers  that  were  loaded  aboard. 

6.  The  number  of  single  consignee  containers  loaded  aboard. 

7.  The  container  volume  and  weight  utilizations  (proportions) 
of  the  containers. 

8.  The  number  of  containers  booked  but  not  stuffed  (over  booked 
cancelations) . 

9.  The  number  of  basic  reserve  containers  which  were  not  booked. 

10.  The  number  of  beyond  basic  reserve  containers  which  were  not 
booked. 

11.  The  average  container  age  (days). 

12.  The  average  age  of  the  cargo  at  stuff  (days). 

The  above  report  is  useful  for  examining  booking  results,  and  the  activity 
variations  that  occurred  throughout  the  simulated  period. 

A  printed  output  sample  of  the  simulation  is  listed  in  Figure  2. 
From  the  above  discussions,  one  should  be  able  to  follow  the  definitions 
of  the  data  through  the  listings  in  this  table. 
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Chapter  III 
SIMULATION  PROGRAMMING  METHODS 

This  chapter  describes  some  detailed  aspects  of  the  simulation  program, 
The  actual  program  and  its  flow  charts  are  listed  in  Appendix  C. 

As  presently  written,  the  program  does  not  require  overlays.   Core 
requirements  are  dependent  on  the  number  of  shipment  segments  waiting  to  be 
stuffed  at  any  one  time.   Roughly  speaking,  core  requirements  in  terms  of 
bytes  are  125K  plus  20  times  the  number  of  shipment  segments  that  would  be 
on  hand  at  any  time.   (An  average  input  of  200  shipments  per  simulated  day 
could  produce  as  many  as  9000  on  hand  shipments  when  conservative  stuffing 
policies  are  applied,  and  as  few  as  4000  shipments  when  liberal  policies 
are  applied.)  Average  CPU  time  on  the  IBM  360/67  ranges  between  2  and  3 
milliseconds  per  processed  shipment.   The  larger  figure  applies  when  data 
concerning  all  transactions  are  written  on  external  files. 

Most  of  the  variables  in  the  program  are  of  the  integer  mode.   The 
variables  which  could  be  ascertained  as  always  having  values  under  32000 
were  designated  as  two  byte  integer  words  (16  bits) ;  the  others  were  four 
byte  integer  words.  All  of  the  record  stacks  consist  of  two  byte  words. 
Precautions  were  taken  in  the  program  to  insure  that  words  were  of 
sufficient  size  to  hold  the  data  they  were  intended  to  hold.   When 
necessary,  double  precision  (eight  byte  real  mode)  variables  were  used; 
this  was  the  case  for  certain  operations  statistics  accumulators. 

Shipment  and  vessel  data  is  real  in  binary  form  in  terms  of  two  byte 
integer  words  using  the  A2  format  specification.   Also,  transaction 
outputs  are  written  in  this  form.   The  reason  for  this  is  to  eliminate 
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conversion  time.   As  mentioned  previously,  precautions  were  taken  to  keep 
input  and  output  within  the  two  byte  integer  limitation.   (  A  word  of 
caution  here,  when  writing  and  reading  in  binary  using  the  "A"  format 
specification  in  FORTRAN,  one  must  be  aware  of  the  shifting  and  blank 
filling  that  will  occur  if  improper  variable  length  are  used.) 

Common  variable  names  and  their  definitions  used  in  the  program  are 
listed  in  the  first  part  of  Appendix  C.  Also,  the  names  and  definitions 
of  variables  used  to  compute  operations  statistics  are  listed  there. 

Simulation  Transaction  Report  Records 

Each  time  certain  transactions /events  occur  in  the  simulation,  data 
relating  to  these  events  can  be  written  on  an  external  file.   This  section 
generally  describes  these  outputs,  and  how  the  user  initiates  them.   Specific 
card  inputs  for  this  feature  are  discussed  in  Chapter  4  and  Appendix  E; 
specific  output  formats  are  presented  in  Appendix  F. 

All  record  fields  are  written  as  two  byte  words.   Their  contents  are 
binary  integers  and  can  be  read  by  a  A2  FORTRAN  format  specification  provided 
that  the  reading  variables  are  two  bytes  in  length.   The  following  reports 
can  be  requested: 

1.  Data  concerning  each  container  waiver. 

2.  Data  concerning  each  shipment  segment  stuffed 
into  a  container. 

3.  Data  concerning  the  booked  status  of  each  vessel 
when  loaded. 

4.  Data  concerning  the  aggregate  characteristics 
of  containers  loaded  on  each  vessel. 
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5.  Data  concerning  each  container  stuffed  and 
closed  out  at  the  stuffing  station. 

6.  Abbreviated  data  concerning  each  stuffed 
shipment. 


The  above  information  can  be  written  all  on  the  same  file,  or  on  separate 
files  depending  on  which  logical  unit  number  is  designated  by  the  user  for 
each  report.   If  no  logical  unit  number  is  assigned  to  a  report,  then  it 
is  not  written.   If  a  report  is  desired,  it  is  necessary  to  inform  the 
simulation,  through  card  input,  that  report  number  X  is  to  be  written  on 
logical  unit  Y,  and  to  also  define  the  file  for  the  computer.   Logical 
unit  device  numbers  1  through  13  should  not  be  used  for  transaction  reports 
because  they  designate  other  standard  I/O  devices  in  the  program. 

Record  Storage  in  Stacks 

Data  pertaining  to  shipments,  vessels,  and  containers  are  stored  in 
the  various  stacks  using  list  processing  (linking)  techniques.   Pointers 
are  used  to  sequentially  identify  the  list  of  records  in  a  particular 
stack.   Records  in  different  stacks  will  be  mixed  in  a  common  area  of 
core  so  as  to  keep  core  requirements  at  a  minimum. 

Presently,  all  stack  records  in  the  program  are  a  fixed  length  of  10 
two  byte  integer  words.   The  first  word  in  all  the  records  is  used  to 
point  to  the  location  of  the  next  record  in  the  stack;  a  zero  value  in 
the  first  word  denotes  the  end  of  the  stack. 

The  array  REC()  is  used  to  store  the  stack  records.   (It  is  also  used 
to  store  the  stuffing  lists,  as  will  be  discussed  later.)   The  arrays 
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CSF()  and  CSL()  are  used  to  point  to  the  first  and  last  records,  respec- 
tively, in  the  containerizable  shipments  stacks  for  each  consignee.   The 
arrays  SCF()  and  SCL()  are  used  to  point  to  the  first  and  last  records, 
respectively,  in  the  stuffed  container  stacks  for  each  POD  and  container 
type  pair.   The  variables  CVF  and  CVL  point  to  the  first  and  last  record 
in  the  container  vessel  schedule  stack  respectively.   For  the  above 
beginning  and  ending  pointers,  a  zero  value  denotes  that  the  stack  is 
empty. 

Figure  3  specifies  the  contents  of  the  records  in  the  stacks.   The 
numbers  preceding  the  definitions  are  the  relative  locations  of  the  fields 
with  respect  to  the  beginning  of  the  record.   The  values  stored  in  the 
fields  will  be  less  than  32K  under  normal  circumstances. 

The  pointers  in  this  linked  list  system  are  scaled  by  a  factor  of 
RECSIZ  (ten  in  this  case) .   A  pointer  value  multiplied  by  ten  gives  the 
location  of  the  beginning  field  of  the  record  in  the  REC()  array.   (As 
shown  in  the  Table,  the  beginning  field  of  a  record,  in  turn,  points  to 
the  next  record.) 

The  subroutines  NXTREC  and  RELREC  are  used  to  access  and  return 
records  from  a  record  pool  respectively.   This  pool  of  unused  records  is 
created  by  the  main  program  during  the  initiation  of  the  simulation. 
Should  the  pool  be  exhausted,  the  program  will  be  terminated  with  an 
appropriate  message.   To  expand  the  pool,  it  is  necessary  to  enlarge  the 
dimension  of  REC() ,  and  make  a  corresponding  adjustment  to  the  value  of 
LSTREC  in  the  main  program. 
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STACK  FIELDS 


CONTAINER  VESSEL  SECTION  STACK 

0  POINTER  TO  NEXT  RECORD. 

1  ACTUAL  NUMBER  OE  CONTAINERS  BOOKED  FOR  THE  CONTAINER  FREIGHT 

DEPOT  (CFD),  BUT  NOT  STUFFED  AS  YET. 

2  ESTIMATED  DATE  OF  ARRIVAL. 

3  NUMBER  OF  CONTAINERS  RESERVED  DIRECTLY  FOR  THE  STUFFING  STATION. 

THESE  CONTAINERS.  REFERED  TO  AS  THE  BASIC  RESERVE,  ARE  DIRECTLY 
AVAILABLE  FOR  BOOKING.   THEIR  AVAILABILITY  IS  RESTRICTED   ONLY 
BY  THE  CRELT  PARAMETER. 

4  POD  (SEQUENCE  NUMBER). 

5  TYPE  OF  CONTAINERS  (SEQUENCE  NUMBER). 

6  NUMBER  OF  IMMEDIATELY  FOLLOWING  RECORDS  WHICH  CONCERN  SAME  VESSEL 

7  MAXIMUM  NUMBER  OF  CONTAINERS  AVAILABLE  BEYOND  THE  BASIC  RESERVE. 

THESE  CONTAINERS  ARE  REFERED  TO  AS  THE  CONTAINERS  (SPACE) 
BEYOND  THE  BASIC  RESERVE,  AND  ARE  BOOKED  THROUGH  THE  RANDOM 
SCREENING  ALGORITHM  OF  THE  BOOKING  ROUTINE. 

8  VOYAGE  NUMBER. 

9  ACTUAL  NUMBER  OF  CONTAINERS  BOOKED  FOP  CFD  WHICH  ARE  STUFFED  AND 

WILL  BE  AVIALABLE  FOR  LIFT. 

STUFFED  CONTAINERS: 

0  POINTER  TO  NEXT  RECORD. 

1  CONTAINER  NUMBER  (SEQUENCE  NUMBER). 

2  TENTATIVE  VOYAGE  NUMBER. 

3  ACTUAL  CARGO  WEIGHT  (HUNDREDWEIGHT). 

4  ACTUAL  CARGO  CUBE  (CUBIC  FEET). 

5  DATE  STUFFED. 

6  ARRIVAL  DATE  AT  YARD. 

7  TOTAL  AGE  AT  STUFF  OF  DATED  SHIPMENT  SEGMENTS. 

8  TOTAL  NUMBER  OF  SHIPMENT  SEGMENTS. 

9  TOTAL  NUMBER  OF  DATED  SHIPMENT  SEGMENTS. 

CONTAIMERIZABLE  SHIPMENTS  SEGMENTS  STACK: 

0  POINTER  TO  NEXT  RECORD. 

1  SHIPMENT  NUMBER  (SEQUENCE  NUMBER). 

(NEGATIVE  IF  NOT  THE  LAST  SEGMENT  OF  A  SHIPMENT) 

2  CUBE  (CUBIC  FEET). 

3  WEIGHT  (POUNDS). 

4  SHIPMENT  TYPE 

5  DATE  OF  ARRIVAL  AT  TERMINAL. 

6  TENTATIVE  POD  (SEQUENCE  NUMBER). 


Figure  3 
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Stuffing  Lists  Storage 

Stuffing  lists  are  stored  at  the  beginning  of  the  REC()  array,  and 
they  do  not  interact  with  the  previously  discussed  stack  records  stored 
in  the  latter  part  of  the  REC()  array.   The  lists  are  accessed  and 
followed  using  linked  list  techniques.   Each  record  in  the  list  contains 
three  fields,  where  the  first  field  contains  the  pointer  to  the  next 
record,  the  second  field  designates  a  consignee,  and  the  third  field 
contains  a  flag  designating  whether  or  not  that  consignee  is  at  the  end 
of  the  stuffing  list.   This  third  field  is  also  used  to  designate  the 
location  of  the  value  of  the  breakeven  point  adjustment  factor  for  the 
stuffing  list. 

The  array  SLP()  is  used  to  point  to  the  stuffing  list  at  the  beginning 
of  a  chapter  for  a  POD.   Specifically,  the  value  of  SLP(L,J)  contains  the 
REC()  array  index  of  the  first  field  of  the  record  starting  the  (L)th 
chapter  of  the  stuffing  list  for  the  (J)th  POD. 

Figure  4  illustrates  a  sample  stuffing  list  for  a  hypothetical  POD  K, 
and  the  corresponding  values  that  would  reside  in  the  REC()  and  XADJQ 
arrays.   (The  XADJQ  array  contains  the  breakeven  point  adjustment  factors 
for  each  stuffing  list.)   These  sample  lists  reflect  a  procedure  which 
attempts  to  stuff  containers  with  single  consignee  cargo  before  mixing. 

As  can  be  seen  from  sheet  2  of  the  Figure,  each  chapter  is  a  circular 
list,  where  ending  pointers  point  back  to  the  beginning  of  the  list.   This 
was  done  to  facilitate  the  rotation  of  the  starting  point  within  each 
chapter  of  stuffing  lists.   For  example,  the  value  of  SLP(1,K)  would  rotate 
among  the  values  1,4,7,10,  and  13;  the  value  of  SLP(2,K)  would  rotate  among 
the  values  16  and  25.   The  stuffing  algorithm  keeps  track  of  where  it 
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starts  in  a  particular  chapter  so  that  it  can  recognize  when  it  has  made 
a  complete  cycle  of  the  chapter. 


Chapter  1: 


Chapter  2 


Example  Stuffing  List  for  POD  K 


Stuffing 
Stuffing 
Stuffing 
Stuffing 
Stuffing 

List 
List 
List 
List 
List 

P: 

Q: 
R: 
S: 
T: 

Consignee 
Consignee 
Consignee 
Consignee 
Consignee 

1 
2 
3 
4 
5 

BAF 
BAF 
BAF 
BAF 
BAF 

=  1.3 
=  1.1 
=  1.4 
=  1.2 
=  1.0 

Stuffing 

list 

U: 

Consignee 

1 
3 
4 

BAF 

=  1.5 

Stuffing 

List 

V: 

Consignee 

2 
5 

BAF 

=  1.25 

(BAF  =  Breakeven  Point  Adjustment  Factors) 


Breakeven  Point  Adjustment  Factor  Array 


XADJ(I)  Value 


8 
9 
10 
11 
12 
13 
14 


1.3 
1.1 
1.4 
1.2 
1.0 
1.5 
1.25 


Figure  4,  -  Example  Stuffing  Lists  and  Program  Control  (Sheet  1  of  2) 
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Stuffing  List  Array  RECQ 


Location  Field  Values  Classification 

(Index)  (Pointer,  Consignee,  Flag) 

1  4 

2  1  ">  Stuffing  List  8) 

4  7 

5  2  > Stuffing  List  9 
6 

7  10 

8  3  ^Stuffing  List   10        Chapter   1 

9  10 

10  13 

11  4  ^Stuffing  List  11 

12  11 

13  1 

14  5  ^Stuffing  List  12 

15  12 

16  19 

17  1 
18 

19  22 

20  3  >  Stuffing  List  13) 
21 

22  25 

23  4 

24  13  /  \Chapter  2 

25  28 

26  2 
27 

28  16  \  Stuffing  List  14J 

29  5 

30  14 


Figure  4,  -  Example  Stuffing  Lists  and  Program  Control  (Sheet  2  of  2) 
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The  third  (flag)  field  in  each  record  indicates  the  end  of  a  stuffing 
list  when  its  value  is  greater  than  zero.   This  positive  value  is  also  the 
index  of  the  stuffing  list's  breakeven  point  value  in  the  XADJQ  array, 
and  is  sometimes  referred  to  as  the  stuffing  list  number. 

The  stuffing  lists  data  is  read  by  the  main  program.   First,  the 
number  of  stuffing  list  chapters  (levels)  and  the  number  of  breakeven  point 
adjustment  factors  are  read.   The  program  then  reads  the  total  number  of 
fields  to  be  read  into  the  REC()  array,  and  reads  initial  SLP()  array 
values.   The  program  then  reads  the  values  into  the  REC()  array,  and  after 
that  reads  the  values  into  the  XADJQ  array.   (Later  in  the  main  program, 
the  stack  record  pool  is  set  up  in  the  remaining  portion  of  the  REC() 
array.)   Throughout  the  execution  of  the  simulation,  the  stuffing  list 
values  read  into  the  RECQ  and  XADJQ  arrays  are  not  changed;  however, 
the  values  in  the  SLP()  array  will  be  rotated  within  chapters  to  avoid 
biased  stuffing. 
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Chapter  IV 
GENERAL  DESCRIPTION  OF  DATA  DEVELOPMENT 

As  with  other  simulation  models  of  this  magnitude,  it  is  necessary  to 
develop  additional  computer  programs  to  prepare  data  inputs  for  the  actual 
simulation  program.   This  chapter  discusses  the  general  organization  of  the 
programs  used  for  data  preparation.   Together,  these  programs  perform  four 
major  functions.   Firstly,  they  extract  shipment  data  from  WAMTMTS  files. 
Secondly,  they  convert  and  assign  serial  numbers  to  mnemonic  data.   Thirdly, 
they  provide  condensed  parameter  and  data  inputs  for  the  simulation  model. 
Fourthly,  they  prepare  alternative  stuffing  lists  that  can  be  used  in  the 
simulation. 

Figure  5  summarizes  the  overall  structure  of,  and  relationships  among 
data  preparation  programs.   (Figure  6  defines  the  symbology  used  in 
Figure  5.)  Appendix  B  defines  the  record  formats  of  relevant  files  along 
with  a  listing  of  the  programs  themselves ,  and  Appendix  E  lists  an  actual 
input  to  the  simulation  program.   The  following  paragraphs  briefly  describe 
the  role  of  each  program  and  file  depicted  in  Figure  5. 

The  Preliminary  Selection  Program  selects  shipment  receipt  records 
from  WAMTMTS  activity  files  and  stores  them  in  a  file.   Presently  this 
program  selects  only  the  receipts  of  the  MOTBA  container  freight  station 
for  a  designated  time  period.   The  program  logic  of  this  selection  proce- 
dure is  revealed  in  the  format  description  of  the  WAMTMTS  records  in 
Appendix  B.   The  output  of  this  program,  the  Preliminary  Shipment  Records 
File  contains  information  on  all  the  shipments  received  by  CFS  during  the 
selection  period.   The  Preliminary  Shipment  Record  (P.S.R.)  Program  simply 
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Figure     6,-     DATA       PREPARATION       FLOW       CHART 


SYMBOLS 


MAGNETIC  TAPE  FILE 


7 


DATA  CELL  FILE 


DRUM/DISK  FILE 


PROGRAM  or  ROUTINE 


r 


CARD  FILE 


DOCUMENT 


Q 


OFFPAGE  CONNECTOR 


57 


transfers  this  file  to  a  backup  tape  for  future  reference,  and  the  P.S.R. 
Check  Program  simply  prints  a  portion  of  the  file. 

The  POD  Selection  Program  selects  cargo  shipments  for  designated  PODs 
from  the  Preliminary  Shipment  Records  File,  and  transfers  them  to  Shipment 
File  I.   This  file,  in  turn,  is  sorted  by  consignee  and  stored  in  Shipment 
File  II.   The  POD  Selection  Program  is  structured  so  that  the  number  of 
shipments  transferred  to  Shipment  File  I  can  be  controlled  by  POD  groupings ; 
that  is  to  say,  the  number  of  PODs  whose  shipments  are  transferred  can  be 
limited. 

The  POD,  Consignee,  and  Breakbulk  Point  Card  File  provides  the  following 
information.   Firstly,  it  designates  valid  consignee  mnemonic  codes. 
Secondly,  it  designates  which  POD  serves  each  consignee.   Thirdly,  it  desig- 
nates the  breakbulk  point  which  serves  each  consignee;  and  fourthly,  it 
identifies  any  old  or  alias  consignee  codes  that  belong  to  a  consignee. 
Broadly  speaking,  the  consignee  codes  in  the  Shipment  Files  are  matched 
(unmatched  codes  are  thrown  out),  then  serial  numbers  for  each  active  POD, 
consignee,  and  breakbulk  point  are  assigned,  and  finally  stuffing  lists 
are  developed  with  the  information  in  this  card  file. 

The  Consignee  Screen  Program  performs  two  functions.   One,  it  standar- 
dizes consignee  mnemonic  characters  by  changing  any  alphabetic  letter  0  to 
a  numeric  zero  in  the  last  5  positions  of  the  mnemonics.   Two,  it  stores 
these  newly  created  records  in  the  Screened  POD,  Consignee,  and  Breakbulk 
Point  File.   This  program  creates  one  record  if  the  alias  field  on  the 
card  is  not  filled,  and  two  if  it  is  filled.   See  format  specifications  in 
Appendix  B. 
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The  Consignee  Match  Program  compares  the  consignee  mnemonics  in 
Shipment  File  II  with  the  known  consignee  mnemonics  in  the  'Screened' 
File.   The  consignee  records  in  the  'Screened'  File  which  match  one  or 
more  shipments  in  the  Shipment  File  II  are  transferred  to  a  file  which  is 
sorted  and  called  the  Condensed  POD,  Consignee,  and  Breakbulk  Point  File. 
Reiterating,  this  latter  file  contains  only  active  consignee  data;  also, 
any  duplicate  records  that  may  have  been  in  the  'Screened'  File  will  not 
have  been  transferred  to  it. 

The  Serialization  Program  takes  the  Condensed  POD,  Consignee,  and 
Breakbulk  Point  File  and  assigns  a  serial  number  to  each  POD,  consignee, 
and  breakbulk  point.   The  result  is  the  serialized  consignee  file  which 
contains  a  consignee,  POD,  and  breakbulk  point  serial  number  for  each 
basic  or  alias  consignee  mnemonic.   An  alias  consignee  mnemonic  will  have 
the  same  serial  numbers  as  the  basic  mnemonic  for  the  consignee. 

The  Shipment  Serialization  and  listing  Program  does  three  things.   It 
takes  the  records  in  Shipment  File  II  and  converts  the  shipment  data  to 
the  serial  numbers  in  the  Serialized  Consignee  File;  the  result  is  Shipment 
File  III.   It  tabulates  and  lists  total  volumes  and  weights  going  to  each 
consignee  and  POD.   It  calculates  the  proportion  of  POD  cargo  volume  that 
is  destined  to  each  consignee,  and  transfers  this  information  to  the 
Condensed  Serial  File,  along  with  POD,  consignee,  breakbulk  point  mnemonics 
and  serial  numbers. 

The  Shipment  Screen  and  Split  Program  takes  Shipment  File  III,  after 
it  has  been  sorted  by  date  of  arrival,  and  makes  some  minor  adjustments  to 
create  Shipment  File  IV.   The  program  splits  shipments  whose  volume  or 
weight  specifications  cannot  meet  the  32,000  magnitude  limitation  of  a  two 
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byte  integer  word.   Also,  each  shipment  is  assigned  a  serial  number 
according  to  the  order  in  which  it  arrived  during  the  day.   A  shipment 
is  split  into  segments  according  to  the  number  of  pieces  which  will  reduce 
volume  and/or  weight  magnitudes  to  tolerable  ranges.   The  serial  numbers 
for  all  segments  of  a  particular  split  shipment  will  have  the  same  absolute 
value,  however,  all  but  the  last  segment  will  have  a  negative  value. 

The  Stuffing  List  Generation  Program  produces  stuffing  lists  and 
consignee  group  data  from  a  sorted  condensed  serial  file.   Presently,  this 
program  generates  four  alternative  stuffing  lists  as  described  in  Chapter 
II  in  the  section  on  Stuffing  Procedures.   Each  set  of  the  four  lists  is 
punched  on  cards  which  can  be  read  by  the  simulation  program.   Each  set  is 
denoted  by  a  header  card  entitled  Ordered  Stuffing  List  File,  with  the 
number  in  column  76  designating  which  set  it  is.   Before  the  stuffing  lists 
are  punched,  the  program  punches  the  Consignee  Group  Data  File;  it  is 
preceded  by  a  header  card.   The  consignee  groups  are  as  follows:   group  1 
consists  of  the  largest  consignees  that  provide  not  more  than  91%  of  the 
cargo  volume  for  the  POD;  group  2  is  the  next  largest  set  of  consignees 
that  provide  not  more  than  the  next  3%  and  group  4  is  the  final  3% 
(smallest  consignees  at  the  POD) . 

The  Parameter  Setup  Program  creates  a  card  file  of  parameters, 
sequenced  according  to  serial  numbers ,  from  input  data  that  is  mnemonic 
oriented;  in  other  words,  this  program  takes  parameters  that  are  desig- 
nated by  mnemonics  and  converts  it  to  a  serial  number  orientation  so  that 
it  can  be  read  by  the  simulation  program.   Also,  the  program  lists  these 
parameters  for  examination  along  with  the  Condensed  Serial  File.   One 
unique  feature  of  this  program  is  that  if  certain  parameters  are  not 
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specified,  then  default  values  will  be  automatically  provided.   These 
default  values  are  listed  in  the  format  specifications  of  the  card  file 
inputs.   At  a  minimum,  the  card  inputs  to  this  program  must  consist  of: 

1.  POD  Mnemonic  File  (POD  Names  and  Mnemonics) 

2.  Container  Description  File 

3.  The  "header  and  last  card"  for  each  of  the  remaining  parameter 
card  files  specified  as  input  to  this  program  in  Figure  5, 
Sheet  3. 

The  above  input  would  produce  a  Ordered  Parameter  File  consisting  entirely 
of  default  values.   Modifications  to  the  above  are  achieved  by  placing 
cards  punched  with  the  desired  values  in  the  appropriate  file  format  as 
defined  in  Appendix  B;  the  specific  meanings  of  these  parameters  can  be 
determined  by  examining  their  definitions  in  Appendix  C. 

The  Vessel  Schedule  Generation  Program  creates  the  Vessel  Schedule 
File  used  by  the  simulation  program.   The  Vessel  Schedule  Parameters  File 
provides  the  data  inputs.   In  this  file,  data  concerning  each  vessel  pro- 
viding container  transport  must  be  stated  in  terms  of  the  following 
parameters: 

1.  The  PODs  which  the  vessel  calls  upon 

2.  The  type  of  container,  and  the  maximum  number  of  basic 
reserve  and  beyond  basic  reserve  containers  available 
for  each  POD. 

3.  The  mean  and  standard  deviation  of  the  time  (in  days)  that 
it  takes  the  vessel  to  make  one  circuit  of  port  calls. 

4.  The  initial  arrival/departure  date  (serial  day)  at  the 
POE  (stuffing  station) . 
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The  above,  along  with  other  minor  inputs  generates  the  Vessel  Schedule 
File,  and  an  unsorted  listing  of  this  file  if  desired. 

After  the  above  program  runs  have  been  completed,  all  that  remains 
is  to  punch  the  Transaction  Report  Unit  File  and  the  Run  Parameters /Label 
Card;  their  formats  are  listed  in  Appendix  B.   The  Transaction  Report 
Unit  File,  as  previously  described,  designates  the  logical  unit  where 
transaction  reports  (if  any)  are  to  be  written.   The  Run  Parameters  and 
Label  Card  specifies  such  things  as  simulation  duration,  delay  factors, 
an  identifier  code,  etc. 

The  data  preparation  programs  may  appear  to  be  overly  segmented  and 
drawn  out,  but  this  was  done  purposely  to  deal  with  the  following  problems. 
Firstly,  many  of  the  data  preparation  tasks  required  substantial  computer 
execution  time  because  of  the  large  amount  of  data;  therefore,  some  of  the 
tasks  were  segmented  in  order  to  bring  the  amount  of  time  required  by  any 
one  program  within  reasonable  ranges.   Secondly,  there  are  a  number  of 
points  where  data  must  be  examined  before  the  next  task  can  begin.   Thirdly, 
the  presence  of  alias  consignee  mnemonics  and  the  necessity  of  serializing 
them  required  additional  programming  effort.   Fourthly,  the  use  of  the 
fairly  efficient  SORT/MERGE  utility  routine,  residing  on  the  IBM  360/67, 
required  program  separation.   Hopefully,  the  resulting  programs  and  files 
illustrate  step-by-step  data  preparation  procedures. 
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Chapter  V 
DATA  PREPARATION  PROGRAMMING  PROCEDURES 

This  chapter  discusses  some  of  the  technical  programming  aspects  of 
the  data  preparation  programs.   For  the  most  part,  it  addresses  certain 
peculiar  aspects  of  the  programming,  discusses  some  of  the  specific 
assumptions,  and  describes  the  use  of  data  files  and  the  SORT/MERGE 
utility  program. 

Role  of  the  Mnemonics 

Consignee,  POD,  breakbulk  point,  and  container  type  mnemonics  are 
convenient  methods  of  identifying  input  data  for  the  user.   Unfortunately, 
a  large  scale  simulation  model  cannot  efficiently  decipher  these  mnemonic 
codes.   Therefore,  each  mnemonic  is  assigned  a  serial  number  beforehand, 
and  these  numbers,  instead  of  the  mnemonic  codes,  are  used  by  the  simula- 
tion program.   In  terms  of  simulation  program  requirements,  it  is  best  to 
minimize  the  range  of  the  serial  numbers.   Therefore,  inactive  PODs, 
consignees,  and  breakbulk  points  are  not  assigned  serial  numbers  in  the 
data  preparation  programs. 

Several  things  arise  when  dealing  with  mnemonics  in  the  FORTRAN 
Language,  and  they  are  discussed  here.   Firstly,  it  must  be  remembered 
that  the  input  routines  automatically  blank  fill  any  unused  space  in  a 
word  when  the  'A'  format  specification  is  used,  and  the  binary  representa- 
tion of  a  blank  is  not  zero.   Secondly,  it  must  be  remembered  that  the 
upper  bit  is  a  one  for  any  alphanumeric  information  in  a  FORTRAN  variable 
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on  the  IBM-360  because  of  the  nature  of  the  EBCDIC  coding  system;  however, 
it  is  a  zero  for  many  special  characters  including  the  blank.   This  means, 
among  other  things,  that  the  value  of  a  blank  will  be  greater  than  any 
alphanumeric  character  in  a  FORTRAN  comparison,  when  it  would  actually  be 
less  in  a  purely  binary  comparison.   This  must  be  adjusted  for  in  the 
Consignee  Match  Program  and  the  Shipment  Serialization  And  Listing  Program 
because  the  files  which  they  read  are  sorted  by  a  utility  program  that 
sorts  purely  on  a  binary  basis;  if  some  illegal  non-alphanumeric  characters 
should  be  in  these  files,  the  FORTRAN  comparison  will  be  stalled.   This 
problem  is  eliminated  by  changing  the  illegal  character  to  a  value  which 
has  a  one  as  an  upper  bit.   (These  two  above  mentioned  programs  basically 
operate  in  a  merging  fashion  by  throwing  out  a  consignee  when  there  is  not 
a  match  between  the  two  sorted  input  files.) 

A  convention  incorporated  in  the  data  preparation  programs  is  to 
convert  an  alphabetic  0  to  a  numerical  zero  for  the  last  five  positions 
of  the  consignee  mnemonic  code.   This  feature  is  necessary  to  insure  the 
correct  identifications  of  all  consignees. 

File  Structures 

The  numerous  files  used  in  the  data  preparation  programs  are  designated 
as  being  either  a  card,  disk,  data  cell,  temporary,  or  tape  file.   A 
temporary  file  typically  arises  as  a  program  output  that  is  immediately 
sorted  and  permanently  stored  elsewhere  during  a  single  job  run.   The 
selection  between  disk  and  data  cell  permanent  storage  was  primarily 
dictated  by  frequency  of  use.   Seldomly  accessed  files  were  placed  on  the 
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data  cell;  frequently  accessed  files  were  placed  on  disk.   Also,  there 
were  considerations  regarding  the  fact  that  accessing  two  different  cells 
of  a  data  cell  simultaneously  is  extremely  inefficient  because  of  the 
physical  nature  of  the  device,  and  hence  was  avoided.   To  a  much  lesser 
extent,  the  same  holds  true  for  disk  storage. 

In  any  event,  each  disk,  data  cell,  or  tape  file  must  be  defined  in 
the  Job  Control  Language  (JCL)  in  order  to  execute  the  programs.   Operating 
examples  of  JCL  file  specifications  are  listed  in  Appendix  B  for  the  data 
preparation  programs,  and  Appendix  E  for  the  simulation  program.   In  certain 
instances,  a  file  is  overwritten  by  a  succeeding  file  in  order  to  minimize 
space  requirements,  and,  of  course,  the  old  file  is  lost. 

Finally,  for  many  of  the  intermediate  files  the  fields  are  written  and 
read  in  binary  using  two  byte  integer  words  and  the  'A2'  format  specifica- 
tion.  As  mentioned  in  previous  chapters,  care  must  be  taken  when  reading 
and  writing  such  fields  to  use  the  proper  word  lengths  and  format 
specifications . 

Parameter  Setup  Program 

Several  aspects  of  this  program  need  to  be  discussed  here.   Firstly, 
as  presently  programmed,  two  groups  of  containers  are  designated.   Any 
container  type  with  a  volume  greater  than  2000  cubic  feet  is  automatically 
classified  in  group  1;  the  smaller  ones  are  placed  in  group  2.   This  in- 
formation is  automatically  punched  in  the  Ordered  Parameter  File  used  as 
input  to  the  simulation  model. 

Secondly,  default  values  are  automatically  entered  in  the  Ordered 
Parameter  File  when  data  cards  are  not  placed  in  the  last  three  input  card 
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files  of  the  program  Cheader  and  last  cards  must  still  be  present) .   The 
default  values  are  listed  in  the  file  format  specifications  of  Appendix  B. 
Thirdly,  certain  parameter  inputs  to  this  program  are  relative  values 
used  to  calculate  the  absolute  levels  used  by  the  simulation.   For  example, 
the  breakeven  proportion  is  entered  as  a  proportion;  the  program  takes  the 
volume  of  the  container,  and  calculates  the  breakeven  volume  (BP)  for 
simulation  input.   The  same  holds  true  for  the  Stowage  Loss  Factor. 

Miscellaneous  Comments 

The  utility  SORT/MERGE  Routine  is  used  because  of  its  efficiency.   It 
is  a  single  job  step,  and  requires  several  files  for  work  areas.   The  cards 
which  control  this  routine  are  listed  in  Appendix  B  with  the  programs  they 
preceded  or  followed  in  the  same  job. 

In  certain  actual  instances,  a  consignee  may  be  served  by  two  or  more 
PODs  and  /or  breakbulk  points;  however,  the  POD,  Consignee  and  Breakbulk 
Point  File  does  not  allow  for  this.   Also,  the  data  preparation  programs 
distinguish  breakbulk  points  by  POD.   For  example,  if  a  particular  break- 
bulk  point  is  designated  in  the  card  file  to  serve  consignees  with  different 
POD  designators,  then  the  breakbulk  point  is  nevertheless  assumed  to  be 
different  for  each  port,  and  each  is  assigned  a  different  serial  number. 

The  Preliminary  Selection  Program  is  executed  in  two  phases.   The  first 
phase  takes  the  data  from  the  WAMTMTS  tapes,  and  after  this  is  successfully 
completed,  the  second  phase  adds  this  data  to  permanent  storage.   The  reason 
for  this  is  to  protect  the  permanent  file  should  the  first  phase  faulter. 
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Chapter  VI 
OUTPUT  DATA  ANALYSES  AND  PRELIMINARY  APPLICATIONS 

This  chapter  discusses  several  ways  in  which  the  simulation  output 
data  can  be  analyzed,  describes  the  computer  programs  used  for  these 
analyses,  and  briefly  describes  preliminary  applications  of  the  simulation 
model.   In  general,  analyses  related  to  the  aggregate  operational  charac- 
teristics of  cargo  going  to  a  particular  POD  can  be  performed  by  using 
the  POD  Operations  Summary  Cards  punched  by  the  simulation.   On  the  other 
hand,  analyses  related  to  specific  consignees  or  containers  must  use  the 
Transaction  Reports.   The  following  sections  briefly  describe  some  of 
the  analysis  methods  used  in  the  past. 

POD  Performance  Trade  Off  Analysis 

This  analysis  measures  the  potential  trade  offs  among  three  cargo 
performance  variables  for  each  POD.   The  three  variables  are  cargo  age, 
container  volume  utilization,  and  single  consignee  proportion.   The 
analyses  is  accomplished  by  executing  a  set  of  simulations  where  the 
stuffing  policy  is  varied  in  different  ways  for  each  run.   Typically, 
the  Breakeven  Point  Adjustment  Factors  (XADJ)  are  set  at  three  different 
levels  of  (.6), (1.0),  and  (1.4).   The  percent  of  consignees  forced  to 
receive  cargo  in  single  consignee  vans  is  varied  in  four  different  ways; 
these  four  sets  of  stuffing  lists  are  produced  by  the  Stuffing  List 
Generation  Program.   In  all,  this  produces  twelve  different  runs. 
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The  POD  Operations  Summary  Cards  for  these  twelve  runs  are  then 
processed  by  the  POD  Operations  Summary  Selection  Program,  which 
produces  cards  for  an  equation  fitting  regression  program.   The  formats 
of  these  files,  and  the  program  are  listed  in  Appendix  D.   The  regression 
programs  used  were  statistical  utility  packages. 

For  the  most  part,  linear  equations  approximate  relationships  (among 
the  variables  discussed  above)  fairly  well  within  operational  regions. 
An  example  of  these  relationships  are  depicted  in  Figure  7  for  an  oriental 
POD.   The  vertical  axis  is  the  cargo  delay  at  the  stuffing  station(t) ,  the 
horizontal  axis  is  container  volume  utilization(U) ,  and  the  values  of  the 
single  consignee  proportion(V)  are  listed  by  each  data  point.   The  lines 
in  this  figure  are  the  calculated  regression  equations;  in  most  cases  the 
multiple  correlation  coefficients  for  such  equations  were  above  (.95). 
This  trade  off  analysis  identifies  the  sensitivity  of  operational 
performance  variables  to  each  other,  and  the  results  that  would  occur 
when  attempting  to  force  a  variable  to  an  extreme.   Also,  it  highlights 
the  fact  that  of  these  three  operational  performance  variables,  only  two 
are  independent;  that  is  to  say,  a  specification  of  any  two  will  neces- 
sarily fix  the  value  of  the  third. 

Consignee  Analysis 

The  preceding  analysis  focused  on  aggregate  POD  cargo  performance; 
here  the  focus  is  on  consignee  cargo  performance.   In  order  to  undertake 
such  an  analysis,  it  is  necessary  to  have  the  simulation  report  shipment 
stuffing  transactions;  these  records  would  typically  be  written  on  a 
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Figure  7,-  Operations  Variables  and  Fitted  Equation 
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tape  in  order  to  accommodate  the  large  number  of  records;  the  tape  file 
would  then  be  read  by  another  program  for  summarization  purposes.   The 
Consignee  Data  Summary  Program  listed  in  Appendix  D  does  this  for 
selected  consignee  data;  it  summarizes  data  from  the  shipment  segment 
stuff  transaction  report  (//2)  ,  and  punches  the  Consignee  Operations 
Summary  File.   The  format  of  the  Consignee  Operations  Summary  File  is 
listed  in  Appendix  D;  among  other  things,  this  file  identifies  each 
consignee,  the  amount  of  cargo  it  received,  its  average  age  at  stuff, 
single  consignee  volumes,  and  the  total  volume  of  cargo  the  breakbulk 
point  that  serves  the  consignee  received.   These  data  can  be  used  to 
measure  the  general  factors  which  influence  cargo  aging,  single  consignee 
performance,  and  container  volume  utilization  for  consignees. 

Another  useful  analysis  is  to  examine  the  distribution  of  consignee 
shipment  ages  at  the  stuffing  station,  and  how  these  distributions  are 
affected  by  different  stuffing  policies.   The  Consignee  Cargo  Age 
Histogram  Program,  listed  in  Appendix  D,  can  be  used  to  display  a  ship- 
ment age  histogram  for  a  consignee  or  groups  of  consignees.   It  currently 
uses  the  abbreviated  shipment  stuff  transaction  report  (#12)  to  do  this. 
Figure  8  is  an  example  output  of  the  program. 

Past  Applications 

The  simulation  program  has  already  been  used  in  a  number  of  ways  to 
provide  managerial  information.   Four  of  these  are  discussed  here. 

The  affects  of  emphasizing  certain  performance  variables,  at  the 
detriment  of  others,  have  been  examined  by  looking  at  POD  performance 
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HISTOGRAM    PLOT    OF    CARGO    AGE    VERSUS    FREQUENCY    OF 
OCCURRENCE    FOR    CONSIGNEE    NUMBER    1 
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Fierure  8,-  Example  Output  of  the  Consignee  Cargo  Age  Histogram  Program 
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trade  offs.   Using  the  data  in  Figure  7,  for  example,  indicates  for  the 
particular  POD  that  a  one  percent  average  increase  in  container  volume 
utilization(u)  would  result  in  a  (.5161)  day  increase  in  average  cargo 
stuffing  age(t)  if  the  single  consignee  proportion(v)  were  held  constant. 
Similarly,  a  one  percent  increase  in  the  single  consignee  proportion (v) 
would  result  in  a  (-4721)  day  increase  in  age(t)  if  the  container  volume 
utilization(u)  were  held  constant.   Such  data  informs  overseas  customers 
of  the  consequences  which  must  be  accepted  when  specific  performance 
standards  are  requested. 

The  impact  of  having  other  facilities  stuff  a  portion  of  the  cargo, 
which  was  normally  handled  through  the  container  stuffing  station,  was 
also  examined.   This  was  accomplished  by  comparing  results  with  and 
without  the  designated  cargo  being  included  in  simulation  runs.   This 
provided  a  basis  for  forecasting  performance  impacts  that  would  result 
if  such  cargo  were  eliminated. 

The  affects  of  container  size  on  cargo  stuffing  performance  variables 
were  measured  in  light  of  the  proposals  by  certain  ocean  carriers  to 
curtail  small  van  service  to  certain  PODs .   Container  sizes  influence  the 
flexibility  of  procedure  used  to  load  cargo  into  containers,  which  in 
turn,  impinge  on  the  performance  of  the  cargo  transportation  system.  A 
conceptual  model  of  the  problem  was  first  formulated  to  provide  a 
framework,  and  then  the  simulation  model  was  used  to  identify  how 
performance  variables  were  affected  by  container  size.   It  was  found 
that  a  sustained  trend  toward  larger  containers  by  commercial  ocean 
carriers  would  result  in  a  substantial  lowering  of  transportation 
service  standards  and/or  an  increase  in  transportation  costs. 
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Container  stuffing  policies  were  examined  as  they  normatively  affect 
service  and  the  cost  of  transporting  cargo  overseas.   The  simulation 
model  was  used  to  determine  which  policies  produced  the  best  service  at 
the  lowest  cost.   The  results  indicated  that  there  should  be  no  special 
emphasis  on  the  loading  of  single  consignee  vans  unless  there  are  extra- 
ordinary high  costs  associated  with  the  handling  of  cargo  in  mixed 
consignee  cargo  vans  at  overseas  ports. 

Potential  Applications 

SIMCON  has  the  potential  to  aid  in  approaching  and  dealing  with  a 
number  of  both  planning  and  operational  problems.   Several  are  discussed 
here. 

The  evaluation  of  the  performance  of  stuffing  operations  could 
conceivably  be  accomplished  by  comparing  actual  stuffing  results  with 
the  normative  results  of  the  model.   The  ratio  of  model  measures  to 
actual  measures  could  be  used  to  track  improvements  or  declines  in 
stuffing  performance  as  vessel  schedules  and  cargo  inputs  change.   Also, 
variations  of  this  concept  could  be  used  to  "incentivize"  contracts  let 
to  civilian  concerns  for  stuffing  military  cargo. 

The  simulation  model,  or  a  variation  thereof,  could  be  used  to  more 
accurately  forecast  the  need  for  bookings.   Forecasting  container  require- 
ments is  complicated  by  the  fact  that  aggregate  on-hand  and  arriving 
cargo  volumes  may  not  accurately  reflect  the  need  for  containers  because 
of  cargo  configuration  and  mixing  factors.   A  simulation  model  could  take 
these  factors  into  account. 
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Besides  the  applications  which  would  result  in  immediate  payoffs, 
there  are  also  those  applications  which  would  produce  benefits  in  the 
longer  run.   For  example,  SIMCON  could  be  used  to  evaluate  system  wide 
transportation  trade  offs  by  addressing  questions  such  as  whether  or  not 
improved  services  and/or  reduced  costs  could  be  achieved  by  consolidating 
stuffing  stations  so  as  to  create  greater  volumes  at  these  stations. 
In  this  case,  increases  in  overland  transportation  and  handling  costs 
could  possibly  be  offset  by  lower  ocean  transportation  and  stuffing  costs 
resulting  from  higher  utilization  and  single  consignee  vans. 

Also,  there  are  long  run  benefits  that  would  accrue  to  the  simulated 
assessment  of  the  impacts  of  changes  in  vessel  service,  container  avail- 
ability, cargo  volume  decline,  stuffing  delays,  errors  in  cargo  forecasting, 
errors  in  container  booking,  and  cargo  stuffing  restrictions.   Measurements 
of  these  impacts  will  provide  a  better  understanding  of  operational  trade 
offs,  and  provide  additional  information  for  management  decision  making. 
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APPENDIX  A 


Glossary  of  Terms 


77 
GLCSSARY  CF  KEY  TERMS 


THE  TERMS  LISTED  HERE  WERE  DEVELOPED  TO  PROVIDE  A  TERMINOLOGY 
WHICH  FACILITATES  THE  EXPLANATION  AND  DISCUSSION  OF  THE  SIMULATION 
MODEL.   THESE  TERMS  SHCULD  NOT  BE  INTERPRETED  AS  STANDARD 
DEFINITIONS  USED  IN  ALL  OPERATING  SYSTEMS. 


riRFAKFVEN  POINT;   IT  REPRESENTS  THE  AMOUNT  OF  CARGO  WHICH  MUST 
BE  LOADED  INTO  A  CONTAINER  SO  AS  TO  MAKE  THE  COST  OF  SHIPPING 
THE  CARGO  IN  THE  CONTAINER  LOWER  THAN  THE  COST  OF  SHIPPING  THE 
CARGO  BY  NON-CCNTAINERIZED  MEANS.   TYPICALLY,  THE  BREAKEVEN 
POINT  IS  EXPRESSED  IN  TERMS  OF  A  PERCENTAGE  OF  A  CONTAINERS 
MAXIMUM  CARGO  VOLUME  CAPACITY;  AND  IS  COMPUTED  THROUGH  COST 
ANALYSES  INCLUDING  TRANSPORTATION  AND  HANDLING  COSTS. 

iE:   THIS  TERM  IS  USED  TO  REFLECT  HOW  LONG  IT  TAKES 


CARGO  TO  £   TRANSPORTED  FROM  CONSIGNOR  TO  CONSIGNEE.   FOR 
EXAMPLE,  IT  WOULD  INCLUDE  SUCH  THINGS  AS  THE  TIME  A  SHIPMENT 
WAITS  AT  A  CONSIGNORS  SITE  TO  BE  PICKED  UP,  IN-TRANSIT  TIME, 
THE  TIME  AT  A  CONSCL IDATI ON  TERMINAL  BEFORE  STUFFING,  THE  TIME 
IN  A  CONTAINER  BEFORE  THE  CONTAINER  IS  LOADED  ABOARD  A  SHIP, 
SAILING  TIME,  ETC.   CARGO  AGE  AVERAGES  CAN  BE  CALCULATED  FROM 
SEVERAL  DIFFERENT  STANDPOINTS;  IT  CAN  BE  WEIGHTED  ACCORDING  TO 
VOLUME,  WEIGHT,  OR  SHIPPING  UNITS  AMONG  OTHER  THINGS.   IN  ANY 
EVENT,  THE  TIME  SPAN  INVOLVED  AND  THE  METHOD  OF  WEIGHTING  MUST 
BE  SPECIFIED  TO  CLEARLY  INDICATE  THE  MEANING  OF  AVERAGE  AGE. 
GENERALLY  SPEAKING,  THE  PRINCIPAL  METHOD  FOR  CALCULATING 
AVERAGE  AGE  USES  SHIPPING  UNITS  AS  WEIGHTS.   ALSO  FOR  THIS 
REPORT,  CARGO  AGE,  UNLESS  OTHERWISE  SPECIFIED,  REFERS  TO  THE 
TIME  A  SHIPMENT  WAITS  IN  THE  STATION  BEFORE  BEING  STUFFED. 

CARRIER  YARD;   THE  STAGING  AREA  WHICH  THE  COMMERCIAL  CONTAINER 
CARRIER  USES  FOR  LOADING  (LIFTING)  CONTAINERS  ABOARD 
CGNTAINEPSHIPS. 

CFS/CFD:   AN  ABBREVIATION  FOR  THE  CONTAINER  FREIGHT 
STATION/DIVISION  OF  A  MILITARY  OCEAN  TERMINAL. 


consignee:  the  entity  to  which  a  cargo  shipment  is  destined 

consignee  mnemonic:  a  six  character  code  used  to  identify  a 
consignee.  There  may  be  more  than  one  code  for  a  consignee, 
in  which  case  the  alternative  codes  are  called  alias  consign 
mnemonics. 


CONSIGNOR:  THE  ENTITY  WHICH  INTRODUCES  A  CARGO  SHIPMENT  INTO 
THE  TRANSPORTATION  SYSTEM. 

CARGO:   CARGO  WHICH  ORIGINATES  IN  THE  CONTINENTAL 


-EXPORT 
UNITED 


STATES  (CONUS)  AND  IS  DESTINED  TO  OVERSEAS  CONSIGNEES 


GENERAL  FXPORT  CARGO:   THIS  IS  EXPORT  CARGO  WHICH  FALLS  IN 
MILSTAMP  WATER  COMMODITY  CODE  SERIES  360-399  AND  500-799. 
GENERALLY  SPEAKING,  THIS  DOES  NOT  INCLUDE  SPECIAL  CARGO  SUCH 
AS  CHILL  CARGO,  FREEZE  CARGO,  BULK  CARGO,  VEHICLES, 
AMMUNITION,  EXPLOSIVES,  RADIOACTIVE  WASTE,  OR  ASSEMBLED 
AIRCRAFT. 
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MINIMUM  LOAD  REQUIREMENT;   UNDER  A  SPECIFIC  STUFFING 
POL  ICY/PROCEDURE,  IT  REPRESENTS  THE  MINIMUM  AMOUNT  CF  CARGO 
THAT  MUST  BE  AVAILABLE  FOR  LOADING  INTO  A  CONTAINER  BEFORE  THE 
PROCEDURE  WILL  CONSIDER  STUFFING  THE  CONTAINER. 

MTXFn  r.DNSTfiNFF  VAN:   A  CONTAINER  (VAN)  STUFFED  WITH  THE  CARGO 
OF  SEVERAL  CONSIGNEES. 

MGTBA:   AN  ABBREVIATICN  FOR  THE  MILITARY  OCEAN  TERMINAL,  BAY 
AR1X (OAKLAND,  CALIFORNIA). 

MTM.C:   AN  ABBREVIATION  FOR  THE  MILITARY  TRAFFIC  MANAGEMENT 
COMMAND,  FORMERLY  KNOWN  AS  THE  MILITARY  TRAFFIC  MANAGEMENT  AND 
TERMINAL  SERVICE  (MTMTS). 

HCFAN  CONTAINER:   A  CONTAINER,  OR  VAN,  WHICH  IS  ESPECIALLY 
DESTGftED  TO  BE  CARRIED  ABOARD  OCEAN  GOING  VESSELS.   TYPICALLY, 
THE  VESSELS  ARE  ESPECIALLY  DESIGNED  TO  CARRY  CONTAINERS. 
COMMON  VAN  SIZES  ARE:  8  BY  8  BY  20  FEET;  8  BY  8  BY  24  FEET;  8 
BY  8  EY  27  FEET;  8  BY  8  BY  35  FEET;  AND  8  BY  8  BY  40  FEET. 
THESE  VANS  MAY  BE  COVERED  OR  UNCOVERED;  DESIGNED  TO  CARRY  BULK 
CARGO;  AND  REFRIGERATED  OR  UNREFRIGERATED.   THE  MOST  COMMON 
CONTAINER  IS  THE  GENERAL  CARGO  CONTAINER. 

PARTIAL  SHIPMENT:   THIS  TERM  IS  USED  IN  A  SITUATION  WHERE  A 
SHIPPING  UNIT  IS  RECLASSIFIED  IN  TO  SEVERAL  SHIPPING  UNITS 
BECAUSE  OF  THE  WAY  IN  WHICH  THE  SHIPMENT  IS  TENDERED  TO  THE 
TRANSPORT  SYSTEM.   FOR  EXAMPLE,  THIS  WOULD  OCCUR  WHEN  A  VENDOR 
RESPONDS  TO  A  SINGLE  REQUISITION  BY  TENDERING  THE  CARGO  AT 
SEVERAL  DIFFERENT  LOCATIONS  AND/OR  AT  DIFFERENT  TIMES;  FOR 
PURPOSES  HERE,  EACH  PARCEL  WOULD  BE  CONSIDERED  A  SHIPPING 
UNIT,  AND  WOULD  BE  REFERRED  TO  AS  A  PARTIAL  SHIPMENT. 

POD  MNFMGNIC:   A  THREE  CHARACTER  CODE  USED  TO  IDENTIFY  PORTS 
CF  DEBARKATICN  (PCD). 

RETROGRADE  CARGO:   CARGO  WHICH  ORIGINATES  AT  OVERSEAS  POINTS 
AND  IS  DESTINED  TO  POINTS  IN  CONUS. 

SINGLE  CONSIGNEE  VAN:   A  VAN  STUFFED  WITH  THE  CARGO  CF  ONE  AND 
ONLY  CNE  CONSIGNEE. 

SHIPMENT  SPLITTING:   THIS  TERM  REFERS  TO  THE  SITUATION  WHERE  A 
SHIPPING  UNIT  IS  BROKEN  DOWN  IN  TO  SEPARATE  PARTS  BECAUSE  OF 
THE  TRANSPORTATION  SYSTEM.   FOR  EXAMPLE,  AN  ENTIRE  SHIPPING 
UNIT  *AY  NOT  FIT  INTO  A  SINGLE  VAN,  SO  IT  WOULD  BE  SPLIT  IN  TO 
SEVERAL  PARTS.   IN  SUCH  A  CASE  THE  VARIOUS  PORTIONS  OF  THE 
SHIPMENT  ARE  REFERRED  TO  AS  SHIPMENT  SEGMENTS,  AND  THE 
SHIPPING  UNIT  WHICH  CONSISTS  OF  THESE  VARIOUS  SEGMENTS  WOULD 
BE  REFERED  TO  AS  A  SPLIT  SHIPMENT.   NOTE  THAT  SPLIT  SHIPMENTS 
ARE  NOT  NECESSARILY  RELATED  TO  PARTIAL  SHIPMENTS;  THE  FORMER 
REFERS  TO  THE  CASE  WHERE  SHIPMENTS  ARE  BROKEN  DOWN  BECAUSE  OF 
PECULIARITIES  DUE  TO  THE  TRANSPORT  SYSTEM.  WHEREAS  THE  LATTER 
REFERS  TO  SITUATIONS  WHERE  THE  SHIPMENT  IS  BROKEN  DOWN  BECAUSE 
OF  THE  WAY  IN  WHICH  IT  WAS  TENDERED  TO  THE  TRANSPORT  SYSTEM. 
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SHIPPING  UNIT;   THIS  TERM  DEFINES  A  CARGO  INPUT  TO  A 
TRANSPORTATION  SYSTEM.   A  SHIPPING  UNIT  IS  A  CARGO  SHIPMENT 
WHICH  IS  INTRODUCED  TC  THE  SYSTEM  AT  A  PARTICULAR  TIME.   THE 
CARGO  MAY  SUBSEQUENTLY  BE  BROKEN  DOWN  IN  TO  SEVERAL  SEQMENTS, 
AND  MAY  POSSIBLY  MOVE  TO  THE  DESTINATION  VIA  DIFFEREDNT 
ROUTES.   THIS  TERM  IS  USED  WITH  CARGO  AGE  MEASUREMENTS.   (ALSO 
SEE  THE  TERMS  CARGO  AGE,  SPLIT  SHIPMENTS,  AND  PARTIAL 
SHIPMENTS.) 

STUFFING;   THE  LOACING  OF  CARGO  INTO  CONTAINERS. 

STUFFING  LIST;   A  LIST  OF  CONSIGNEE(S)  WHOSE  CARGO  MAY  BE 
MIXED  IN  THE  SAME  VAN.   THAT  IS  TO  SAY,  THE  CARGO  GOING  TO  THE 
CONSIGNEES  LISTED  ON  A  STUFFING  LIST  CAN  BE  MIXED  IN  THE  SAME 
VAN.   THE  CONTENTS  AND  THE  ARRANGEMENT  OF  A  SEQUENCE  OF 
STUFFING  LISTS  DICTATE  HOW  CARGO  WILL  BE  OPERATIONALLY  STUFFED 
INTO  VANS  FOR  A  GIVEN  STUFFING  POLICY.   ONE  AND  ONLY  ONE 
STUFFING  LIST  IS  USED  TO  STUFF  A  CONTAINER. 

STUFFING  LIST  NUMBER;   THE  NUMBER  IDENTIFYING  A  STUFFING 
LI$T.   AMONG  CTHER  THINGS,  THIS  STUFFING  LIST  NUMBER  IS  USED 
TO  IDENTIFY  THE  LOCATION  OF  THE  BREAKEVEN  POINT  ADJUSTMENT 
FACTOR  WHICH  IS  USED  TO  COMPUTE  THE  MINIMUM  LOAD  REQUIREMENT 
FROM  THE  BREAKEVEN  POINT. 

UNSTUFFING;   THE  UNLOADING  OF  CARGO  OUT  OF  CONTAINERS. 

VESSEL  SECTION  RECCRD;   DATA  CONCERNING  THE  STATUS  OF 
CONTAINER  BOOKINGS  ON  A  PORTION  OF  AN  ARRIVING  VESSEL.   THIS 
SEGMENTATION  IS  NECESSARY  BECAUSE  A  VESSEL  MAY  CARRY  SEVERAL 
DIFFERENT  SIZE  CONTAINERS,  AND  MAY  CALL  ON  SEVERAL  DIFFERENT 
PODS. 

WAMIMQ:   AN  ABBREVIATION  FOR  THE  WESTERN  AREA  MILITARY  TRAFFIC 
MANAGEMENT  CCMMAND,  FORMERLY  KNOWN  AS  THE  WESTERN  AREA 
MILITARY  TRAFFIC  MANAGEMENT  AND  TERMINAL  SERVICE  (WAMTMTS). 
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APPENDIX  B 


Data  Preparation  Files  and  Programs 
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Format  for  POD  Names  and  Mnemonics  File 


Header  Card:   PORT  NAMES  AND  MNEMONICS  FILE  (Card  Columns  1-29) 

Place  alphanumeric  identifier  code  in  columns  73-80, 


Data  Cards:   Card  Columns        Contents 


1-48  Name  of  port  (optional) 

51-54  Port  mnemonic  (alphanumeric,  left 

justified) 


(Use  one  card  for  each  port) 
Last  Card:    ****   (in  first  four  columns) 


Note:   This  file  is  automatically  generated  by  the  Serialization  Program 
as  card  output. 
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Format  for  Container  Description  File 

Header  Card:   CONTAINER  DESCRIPTION  FILE  (Card  Columns  1-26) 

Place  alphanumeric  identifier  code  in  columns  73-80. 


Data  Cards:    Card  Columns 
1-4 
5-8 
25-28 

31-38 

41-48 


Contents 

Steamship  Line  mnemonic  (optional) 

Container  Length/size  (optional) 

Container  type  mnemonic,  (alphanumeric, 
left  justified) 

Maximum  cargo  volume 
(MC,  cubic  feet)     (I) 

Maximum  cargo  weight 
(MW,  pounds)        (I) 


Last  Card:    ****   (in  first  four  columns) 
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Format  for  Container  Breakeven,  Utilization,  and  Booking 
Parameters/Statistics  File 


Header  Card:   CONTAINER  BREAKEVEN,  UTILIZATION,  AND  BOOKING 

PARM/STAT  FILE  (Card  Columns  1-60) 

Place  alphanumeric  identifier  code  in  columns  73-80. 


Data  Cards:   Card  Columns 
1-4 
5-8 
9-12 


13-16 


17-20 


21-24 


25-28 


Contents 

Container  type  mnemonic 

POD  mnemonic 


(I) 


Breakeven  Proportion.   This  value 

is  multiplied  by  the  container 

volume  to  produce  BP ,  (default=.5)   (F) 

Initial  estimated  cube  utilization 
percentage,  (CFUT,  default=.8)      (F) 

Exponential  smoothing  average 
parameter  for  the  above  percentage, 
(CUESP,  default-. 5)  (F) 

Stowage  Loss  Factor.   This  value  is 

multiplied  by  the  container  volume 

to  produce  SAF,  (default=.l)        (F) 

Maximum  probability  for  successful 

booking  of  containers  beyond  the 

basic  reserve.  (XCMXLB ,default=1.0)  (F) 


Last  Card 


****   (in  first  four  columns) 
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Format  for  Container  Forecast  Statistics/Parameters  File 


Header  Card:   CONTAINER  FORECAST  STATISTICS /PARAMETERS  FILE 

(Card  Columns  1-45) 

Place  alphanumeric  identifier  code  in  columns  73-80. 
Data  Cards:    (One  card  for  each  POD) 

Card  Columns        Contents 

1-4  POD  mnemonic 

5-14  Initial  forecast  for  containerizable 

shipment  arrivals  (cubic  feet) 
during  forecast  period  destined  for 
above  POD,  (CFCUB,  default=0)       (F) 

15-18  Exponential  smoothing  average 

parameter  for  above  forecast, 
(CFESP,  default-. 5)  (F) 

19-22  Adjustment  factor  for  the  forecast 

of  containerizable  shipments, 
(CFAF,  default=1.0)  (F) 


Last  Card:    ****   (in  first  four  columns) 
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Format  for  Container  Booking  Horizon  and  Success 

Rate  File 


Header  Card:   CONTAINER  BOOKING  HORIZON  AND  SUCCESS  RATE  FILE 

(Card  Columns  1-47) 

Place  alphanumeric  identifier  code  in  columns  73-80. 


Data  Cards:    Card  Columns 
1-4 
11-14 


15-18 


19-22 


23-26 


Contents 

POD  mnemonic 

Minimum  number  of  days  in  advance  of 
vessel  arrival  for  which  bookings 
can  be  made  for  beyond  reserve 
containers,  (CSTRT,  default=2)      (I) 

Range  for  the  above  booking  distri- 
bution, (CRNG,  default=l)  (F) 

Flag  indicator  for  type  of  distribu- 
tion to  be  used  for  determining  the 
proportion  of  the  containers  beyond 
the  basic  reserve  that  can  be 
currently  booked.   This  parameter 
comes  into  play  only  after  the  random 
screening  algorithm  has  determined 
that  a  booking  can  take  place.  A 
value  of  zero  allows  all  space 
available  to  be  booked  if  asked  for; 
a  value  of  one  releases  space 
according  to  a  random  uniform 
distribution  of  space  available. 
(CDSTYP,  default=0)  (I) 

Reserved  container  release  time.   The 
unbooked  basic  reserve  space  is 
released  back  to  the  carrier  this 
many  days  before  the  vessel's  arrival 
at  the  POE.   That  means  that  bookings 
of  reserved  space  can  no  longer  be 
made  after  that  time. 
(CRELT,  default=0)  (I) 


Last  Card 


****   (in  columns  1-4) 
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Format  for  Transaction  Report  Unit  File 


Header  Card:   TRANSACTION  REPORT  UNIT  FILE  (Card  Columns  1-28) 


Data  Cards :    Card  Columns        Contents 


5-6 


Report  Identification  Number  (right 
justified) 


8-9 


Logical  unit  device  on  which  the 
above  report  is  to  be  written. 


(Use  one  card  for  each  desired  transaction  report;  if 
none  are  desired,  then  this  file  will  consist  of  only 
the  header  and  last  card.) 


Last  Card:    ****   (in  first  four  columns) 
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Format  for  the  Container  Vessel  Schedule  Parameters  File 


Header  Card 


Card  Columns 
1-41 
51-55 
56-63 

64 

65-67 


Contents 

CONTAINER  VESSEL  SCHEDULE  PARAMETERS  FILE 

Starting  Time,  (usually  0)  (I) 

Random  number  generator  seed  (any 
positive  integer)  (I) 

Schedule  printing  option:  0  for  no, 

1  for  yes  (I) 


Number  of  days  to  be  generated 


(I) 


ta 

Cards: 

a) 

Vessel 

Card 

Columns 
1-4 
7-18 
49-52 

53-56 
57-60 

Contents 

Steamship  Line  (optional) 

Vessel  Name  (optional) 

Initial  Date  of  Sail  from  POE 
(serial  day) 

Mean  circuit  time 


(A) 
(A) 

(I) 
(F) 


Standard  Deviation  of  Circuit  Times  (F) 


b)  POD  and  Container  Type  information  for  the  above  vessel. 


Columns 
1-4 
5-8 

9-11 


Contents 

POD  mnemonic  (left  justified)       (A) 

Container  type  mnemonic  (left 
justified)  (A) 

Number  of  containers  in  the  basic 
reserve  for  above  POD.  (I) 
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12-14  Number  of  beyond  basic  reserve 

containers  for  above  POD.  (I) 

Repeat  the  above  sequence  up  to  and  including  column  70, 
then  continue  on  a  new  card.   When  the  vessel  data  are 
complete,  place  four  dollar  signs  ($$$$)  in  the  next 
POD  mnemonic  field. 

c)  Repeat  parts  (a)  and  (b)  until  all  vessels  are  described. 

d)  End  of  File  Card.   (****  in  first  four  columns) 
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Format  for  the  POD,  Consignee,  Breakbulk  Point  Card  File 


Header  Card:   POD,  CONSIGNEE,  BREAKBULK  POINT  FILE  (Columns  1-36) 


Data  Cards:    Card  Columns 


1-6 


9-14 


17-22 


25-29 
31-33 


Contents 

Current  consignee  mnemonic  (left 
justified) 

Old  or  alias  consignee  mnemonic 
(left  justified).   (If  no  alias, 
leave  blank) 

Breakbulk  point  consignee  mnemonic 

(left  justified) 

(a  blank  here  is  interpreted  to  mean 

that  the  consignee  itself  is  the 

breakbulk  point) 

SOP-6-4  codes  (optional) 

POD  mnemonic  (left  justified) 


At  least  one  card  is  required  for  each  consignee;  a 
consignee  will  require  more  than  one  card  if  it  has 
more  than  one  alias. 


Last  Card:    ****   (in  columns  1-4) 
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FORMAT  OF  THE  RUN  PARAMETER  AND  LABEL  CARD 


Card  Columns  Contents 

1-3  Number  of  PODs.    (I) 

4-7  Number  of  Consignees.   (I) 

8-9  Number  of  Container  Types.   (I) 

10-11  Number  of  Container  Groups.   (I) 

(The  information  for  the  above  four  fields  is  printed  on  the 
last  line  of  the  printout  from  the  Parameter  Setup  Program) 

12-19  Random  number  generator  seed  for  the 

Booking  routine  (any  positive  integer) 

20-24  Time  duration  (in  days)  of  the  simulation. 

25  Container  Lift  Report  print  option.   Leave 

blank  if  desired;  1  if  not. 

26-27  Desired  CDELCT  value  (typically  1) 

28-29  Desired  CDELTS  value  (typically  1) 

30-31  Desired  CDELTC  value  (typically  1) 

32-33  Desired  MXADVS  value  (typically  0) 

34  Punched  POD  Operations  Summary  Option. 

Leave  blank  if  not  desired;  1  if  desired. 

73-80  Any  alphanumeric  code  to  distinguish  the 

run. 
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RECORD  FORMAT  OF  WAMTMTS  ACTIVITY  TAPE  FILES 


Only  those  fields  used  in  data  selection  are  listed  here.  The  record 
selection  logic  is  explicitly  outlined  here  in  that  required  codes  in 
fields  are  identified;  records  without  these  values  are  skipped. 


Code  Type  Contents 

(not  used) 

BCD    Must  be  a  '1'.   (DOCID) 

BCD    Must  be  a  *1'  or  a  '7'.   (AFST) 

(not  used) 

BCD    N   Water  commodity  code.   (COMM) 

BCD    A   Special  Handling  Code.   (SCGOX) 

(not  used) 

BCD    Must  be  '3DK'. 

BCD    A/N    POD  mnemonic.   (POD) 

(not  used) 

BCD    A/N    Consignee  mnemonic.   (CNSE) 

(not  used) 

BCD    A/N    Transportation  Account.   (TACCTC) 

(not  used) 

BCD    N      Number  of  Pieces.   (PIECES) 

(not  used) 

BCD    N      Weight,  pounds.   (WEIGHT) 

(not  used) 

BCD    N      Volume,  cubic  feet.   (CUBE) 

BCD    N      Date  of  arrival;  must  be  within 
desired  range.   (last  digit  of 
year,  Julian  day)   (DTECGR) 


Field 

Number  of 

Number 

Positions 

1 

2 

2 

1 

3 

1 

4 

13 

5 

3 

6 

1 

7 

1 

8 

3 

9 

3 

10 

21 

11 

6 

12 

26 

13 

4 

14 

5 

15 

5 

16 

3 

17 

7 

18 

4 

19 

6 

20 

4 

92 


21  31  (not  used) 

22  1  BCD    Must  be  '8'. 

23  1  BCD    Must  not  equal  '5'  or  '8*. 
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FORMAT  OF  PRELIMINARY  SHIPMENT  RECORDS 


Field 
Number 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


Number  of 

Bytes 

Code 

Type 

Contents 

3 

EBCDIC 

A/N 

POD 

6 

EBCDIC 

A/N 

Consignee 

1 

EBCDID 

A 

exception  handling  code 

4 

binary 

I 

cube 

4 

binary 

I 

weight 

2 

binary 

I 

pieces 

2 

binary 

I 

receipt  date  serial 

3 

EBCDIC 

A/N 

commodity  code  (COMM) 

4 

EBCDIC 

A/N 

transportation  account  code(TACCTC) 

1 

blank 

NOTE:   The  backup  tape  file  has  the  same  format, 
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RECORD  FORMAT  OF  SHIPMENT  FILES  I  &  II 


(Output  Format  of  POD  Shipment  Selection  Program) 


Field 

Number  of 

Number 

By; 

tes 

Code 

Type 

Contents 

1 

6 

EBCDIC 

A/N 

Consignee 

2 

1 

EBCDIC 

A 

type  of  shipment 

3 

4 

binary 

I 

cube 

4 

4 

binary 

I 

weight 

5 

2 

binary 

I 

pieces 

6 

2 

binary 

I 

receipt  date 
serial 

NOTE:   File  II  has  records  arranged  in  alphabetical  order  by  consignee. 
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RECORD  FORMAT  OF  SHIPMENT  FILE  III 


Field 

Number  of 

Number 

Byl 

:es 

Code 

Type 

1 

2 

binary 

I 

2 

2 

binary 

I 

3 

2 

binary 

I 

4 

4 

binary 

I 

5 

4 

binary 

I 

6 

2 

binary 

I 

7 

2 

binary 

I 

Contents 

serial  receipt  date 

POD  (sequence  number) 

Shipment  Classification 

weight  (pounds) 

volume  (cubic  feet) 

consignee  (sequence  number) 

pieces 
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RECORD  FORMAT  OF  SHIPMENT  FILE  IV 

Field  Number  of 

Number  Bytes  Code  Type  Contents 

1  2  binary      I  serial  receipt  date 

2  2  binary      I  POD  (sequence  number) 

3  2  binary      I  Shipment  Classification 

4  2  binary      I  Weight  (pounds) 

5  2  binary      I  Volume  (cubic  feet) 

6  2  binary      I  Consignee  (sequence  number) 

7  2  binary      I  Shipment  serial  number 


NOTE:   This  file  is  sorted  in  order  of  arrival  date  (field  1) . 
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RECORD  FORMAT  OF  CONDENSED  POD,  CONSIGNEE 
AND  BREAKBULK  POINT  FILE 


Field 

Number  of 

Number 

Bytes 

Code 

Type 

1 

3 

ECBDIC 

A/N 

2 

6 

ECBDIC 

A/N 

3 

6 

ECBCDIC 

A/N 

4 

6 

ECBCDIC 

A/N 

Contents 

POD  mnemonic 

Basic  Consignee  Mnemonic 

Basic/Alias  Consignee 
Mnemonic 

Breakbulk  Point  Mnemonic 


NOTE:   1.  This  file  is  in  POD-Consignee  alphabetic  order. 

2.  This  file  will  contain  records  only  for  those  consignees  which 
have  shipments  in  Shipment  File  II.   (Active  Consignees). 

3.  If  an  active  consignee  has  no  alias,  then  this  file  will  contain 
one  record  for  that  consignee  with  field  3  containing  the  basic 
consignee  mnemonic.   If  an  active  consignee  has  one  active  alias, 
then  this  file  will  contain  two  records;  one  record  having  the 
basic  consignee  mnemonic  in  field  3,  and  the  other  having  the 
alias  mnemonic.   An  active  consignee  with  two  alias  names,  will 
have  three  records,  etc. 
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RECORD  FORMAT  OF  SERIALIZED  CONSIGNEE  FILE 


Field 

Number  of 

Numb  er 

Byl 

tes 

Code 

Type 

Contents 

1 

6 

EBCDIC 

A/N 

Basic/Alias  Consignee 
Mnemonic 

2 

2 

binary 

I 

Consignee  Serial  Numb 

3 

2 

binary 

I 

POD  Serial  Number 

4 

2 

binary 

I 

BBP  Serial  Number 

NOTE:   This  file  is  in  alphabetical  order  by  consignee  mnemonic. 


RECORD  FORMAT  OF  THE  CONDENSED  SERIAL  FILE 
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Field 

Number  of 

Numb  er 

Byl 

^es 

Code 

Type 

1 

3 

EBCDIC 

A/N 

2 

6 

EBCDIC 

A/N 

3 

6 

EBCDIC 

A/N 

4 

2 

binary 

I 

5 

2 

binary 

I 

6 

2 

binary 

I 

7 

2 

binary 

I 

Contents 

POD  Mnemonic 

Consignee  Mnemonic 

Breakbulk  Point  Mnemonic 

Consignee  serial  number 

POD  serial  number 

BBP  serial  number 

Percent  of  POD  cube 
times  100,  (or  propor- 
tion times  10000) 


(If  this  file  is  stored  on  cards,  three  records  are  placed  on  each  card, 
with  five  empty  spaces  in  the  last  five  columns) . 
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RECORD  FORMAT  OF  THE  SCREENED  POD,  CONSIGNEE,  AND 
BREAKBULK  POINT  FILE 


Field 

Number 

of 

Number 

Bytes 

Code 

Type 

1 

3 

EBCDIC 

A/N 

2 

6 

EBCDIC 

A/N 

3 

6 

EBCDIC 

A/N 

EBCDIC 


A/N 


Contents 

POD  Mnemonic 

Basic  Consignee  Mnemonic 

Basic/Alias  Consignee 
Mnemonic 

Breakbulk  Point  Mnemonic 


NOTE:   This  file  is  created  in  the  following  manner.   For  each  card  in 
the  POD,  Consignee,  Breakbulk  Point  Card  File,  a  record  will  be 
created  as  described  above,  and  field  number  3  will  contain  the 
basic  consignee  mnemonic.   Another  record  will  be  created  for 
that  card  if  the  consignee  has  an  alias,  in  which  case  field 
number  3  will  contain  the  alias  mnemonic.   (Note  that  if  a 
consignee  has  N  cards,  then  N  identical  records  will  exist  in 
this  file  with  the  consignee's  basic  mnemonic  in  both  field  2 
and  3;  these  duplicates  will  be  ignored  in  later  programs.) 
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RECORD  FORMAT  OF  VESSEL  SCHEDULE  FILE 


Each  record  contains  data  regarding  a  vessel  section.   This  file  is 
sorted  by  field  2  in  ascending  order,  field  1  in  ascending  order,  and 
field  4  in  descending  order. 


Field 

Number  of 

Number 

By1 

^es 

Code 

Type 

1 

2 

binary 

(I) 

2 

2 

binary 

(I) 

3 

2 

binary 

(I) 

4 

2 

binary 

(I) 

binary 
binary 

binary 


(I) 
(I) 

(I) 


Contents 

Voyage  number 

Day  of  arrival  at  POE 

POD  number 

Number  of  following  sec- 
tions (records)  pertaining 
to  the  same  vessel  voyage 

Container  type  number 

Number  of  container 
reserved  for  container 
stuffing  station  use 

Number  of  containers , 
beyond  the  above  reserve, 
which  can  be  booked 
through  the  random 
screening  algorithm  of  the 
booking  routine. 
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PRELIMINARY    SELECTION  PROGRAM  DECK 
(program  loaded  on  to  a  disk) 

//B0X$101A    JOB    (0826,0232FP,55KJ) ,» J.P.HYNES1 

//PURG1  EXEC    PGM=IEHPR0GM 

//SYSPRINT    DD    SYSOUT* A. SPACE= ( TRK, 1 ) 

//DD1  OD    UNIT=23l4,V0L=SER=LINDA,DISP=SHR 

//SYSIN  DD    * 

SCRATCH  DSNAME=F0826.PSA, V0L=2314=LINDA, PURGE 

/^COMPl  EXEC  FORTCL,COND=EVEN 

//FORT. SYSIN  DD  * 

C      PRELIMINARY  SELECTION  PROGRAM 

C  AND  TRANSFERS  SELECTED  INFORMATION  TO  A  SUMMARY  FILE. 

C      THIS  PROGRAM  SELECTS  SPECIFIED  SHIPMENT  RECORDS  FROM  WAMTMTS  TAPES 

IMPLICIT  INTEGER*4  (A-Z) 

INTEGER*2  DATE, PI ECES , SCGOXI 

DIMENSION  FREQ(364),L0CTML<2) 

DATA   P0E/3H3DK/ 

DATA  C1/1H1/,C2/1H2/,C3/1H3/,C5/1H5/,C8/1H8/ 

DO  33  1=1,364 
33  FREQ(I)=0 
C      SREC=NUMBER  OF  RECORDS  TO  BE  SKIPPED  BEFORE  TRANSFER  BEGINS. 
C      NREC=MAXIMUM  NUMBER  OF  RECORDS  TO  BE  SCANNED.   .   THIS  PARAMETER 
C         WILL  TERMINATE  EXECUTION. 

SREC=0 

NREC=99999 
C      DTSTRT=  JULIAN  DATE  START. 
C      DTEND=  JULIAN  DATE  END. 

DTSTRT=3182 

DTEND=  3304 

NR  =  0 

NS  =  0 

3  NR=NR+1 
IF(NR.GT.NREC)  GO  TO  4 

3333  READ(31,2,END=4,ERR=5)  FN, AFST ,COMMI , SCGOXI , 

*  POEI, P0DI,CNSE1,CNSE2,TACI,PIECEI,WGHTI,CUBI ,DTECGR, 

*  LOCTML 

2    F0RMAT(2X,A1,A1,13X,A3,A1,1X, 

*  A3,A3.21X,A4,A2,26X,A4,5X,I5,3X,I7,4X,I6,I4,31X,2A1) 
IF(NR.LT.SREC)    GO    TO    3 

IF(FN.NE.Cl)    GO    TO    3 

IFUAFST. NE.C1J. AND.  (AFST. NE.C7)  )    GO    TO    3 

IF(POEI.NE.POE)    GO    TO    3 

IF(L0CTML(1).NE.C8)    GO    TO   3 

IF((L0CTML(2) .EQ.C5) .OR . ( LOCTML ( 2  )  . EQ.C8 ) )    GO    TO    3 

IF( (DTECGR.LT.DTSTRT) .OR. (DTECGR.GT .DTEND) )    GO    TO    3 
C 
C 

C  %.  £  a£  ^t  if  Jf  if  ^c  2jt  if  if-  if  ^  if  3}c  & 

C  USE  THE  FOLLOWING  STATEMENTS  FOR  THE  DATE  CALCULATION 

C         IF  THE  START  DATE  IS  IN  1972  AND  THE  STOP  DATE  IS  1973. 

C  IFiDTECGR.LE.2999)   DATE=DTECGR-DTSTRT+1 

C  DATE=DTECGR-3000+4 

C 

C      USE  THE  FOLLOWING  STATEMENT  FOR   THE  DATE  CALCULATION 
C         IF   THE  START  AND  STOP  JULIAN  DATES  ARE  IN  THE  SAME  YEAR. 
DATE=DTECGR-DTSTRT+1 

C 

c 

PIECES=PIECEI 

NS=NS+1 

FREQ(DATE)=FREQ(DATE)+1 

WRITE (13,11)  PODI ,CNSE1,CNSE2,SCGCXI,CUBI,WGHTI,PIECES,DATE, 

*  COMMI,TACI 

11  F0RMAT(A3,A4,A2,A1,2A4,2A2,A3,A4) 

GO  TO  3 
5  WRITE(6,41) 
41  FORMAT!1  ERROR  EXIT') 

GO  TO   3333 

4  WRITE(6,23)  NPEC,NR,NS 

23  FORMAT ('1PRIMARY  SELECTION  PROGRAM',/, 

*  ■  MAXIMUM  NUMBER  OF  RECORDS  TO  BE  SCANNED*1 ,  17, / , 

*  •  ACTUAL  RECORDS  SCANNED*1  ,  17, / , 
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*  !r^^§SR,0F    SHIPMENTS*', 17,///,"     FREQUENCIES    PER    SERIAL 

*  'DATES',/,1  DATE:NUMBER    GF    SHIPMENTS',//) 
ENDFILE     13 

REWIND    13 

REWIND    31 

WRITE(6,32)     (  I,  FREQU  )  ,1  =  1,364) 
32    F0RMAT(7(6X,I3,« : ',15)1 

STCP 

END 
A 

//LINK.SYSLMOD    DO    DSNAME= F0826.PS A( Bl ), C ISP=( NEW, KEEP ) , 
//  UN  IT =2314, V0LUME=SER=LINDA,LABEL=RETPD=90, 

//  SPACE=(TRK,(7, ,1),RLSE) 

//PURG2  EXEC    PGM=IEHPROGM 

//SYSPRINT    DD    SYSOUT=A, SPACE= ( TRK, 1 ) 
//DD1  DD    UNIT=2314,V0L=SER=LINDA,0ISP=SHR 

//SYSIN  DD    * 

SCRATCH    DSNAME=F0826.PSB,VOL=2314=LINDA, PURGE 
/* 

//C0MP2    EXEC    FORTCL,COND=EVEN 
//FORT. SYSIN    DD    * 
C  FILE    TRANSFER    PROGRAM 

C  THIS    PROGRAM    TRANSFERS    30    BYTE    RECORDS    FROM    UNIT    9    TO    UNIT    13. 

INTEGER*2    DATA 

DIMENSION    DATA(15) 

NR=0 

3  READ(9,1,END=2)     DATA 

1  FGRMAT(15A2) 
NR=NR+1 

WRITE(13,1)DATA 
GO    TO    3 

2  WRITE(6.4)    NR 

4  FORMATi*     NUMBER    OF    RECORDS    TRANSFERED    =', 

*  16) 
STOP 
END 

A 

//LINK.SYSLMOD    DD    DSNAME=F0826 .PSB( B2 ), DISP= ( NEW, KEEP ) , 

//  UNIT=2314,VGLUME=SER=LINDA,LABEL=RETPD=90, 

//  SPACE=(TRK,(7,,I) ,RLSE) 

/* 


PRELIMINARY   SELECTION  PROGRAM  DECK 
(program  execution) 

//B0XS101B    JOB    (0826,0232FP,55HJ),' J.P.HYNES' ,TIME=7 
//STEP1    EXEC    PGM=B1 


CYL,4) , 

//FT31F001  DD    UNIT=2400-1 , LABEL= ( 2, BLP ) , V0L=SER=5422 , 

//        DCB=(DEN=l,RECFM=FB,LRECL=x92,BLKSIZE=4800,TRTCH=ET,ER0PT=SKP) 

//STEP2  EXEC  PGM=B2 

//STEPLIB  DD  DSNAME=F0826.PSB,DISP=SHR,V0L=SER=LINDA,UNIT=2314 

//FT06FG01  DD  SYSOUT=A, DCB= (RECFM  =  FBA , LRECL=133, BLKS  IZE  =  3325) 

//FT13F001     DD  DSNAME=F0826.R8, UNI T=2321 , DI SP=( MOD , KEEP) , 

//  V0LUME=SER=CEL004,LABEL=EXPDT=74180,SPACE=(CYL,80) , 

//  DCB=(RECFM=FB,BLKSIZE=1980,LRECL=30) 

//FT09F001  DD    DSNAME=fcOUT ,UNIT  =  SYSDA  ,DISP  =  < OLD, DELETE ) 

A 
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P.S.R.   CHECK  PROGRAM  DECK 


//B0X$101C    JOB     (0826,0232FP,55HJ),»J.P.HYNES» 

//    EXEC    FORTCLG 

//FORT.SYSIN    DO    * 

C  PRELIMINARY    SHIPMENT    SELECTION    CHECK    PROGRAM 

C  (P.S.R.    CHECK    PROGRAM) 

C  THIS    PROGRAM    READS    AND    PRINTS    SEVERAL    OF    THE    RECORDS    IN    FILE    13 

C  FOR    THE    PURPOSE    OF    CHECKING  THE    FILE. 

IMPLICIT    INTEGER*4  (A-Z) 

INTEGER*2      PIECES, DATE 

NUMBER=100 

DO    1    1=1, NUMBER 

READ(13,2)    POD,    C0N1,C0N2,    TYPE,    CUBE,    WEIGHT,    PIECES,    DATE, 

*  COMM, TACCTC 

2  F0RMAT(A3,A4,A2,A1,2A4,2A2,A3,A4) 

WRITE<6,3)  POD,CONl,  CON2, TYP E, CUBE , WEIGHT,  PIECES,  DATE, 

*  COMM, TACCTC, I 

3  F0RMAT(1X,A3,1X,A4,A2,1X,A1,1X,4I9,3X,A3,3X,A4, 

*  I  9  J 
1  CONTINUE 

STOP 
END 

//G0.FT13F0Q1  DD  DSNAME=F082to.R8,UNIT=2321, DI SP=(OLD,KEEP ) , 
//  V0LUME=SER=CEL004,LABEL=T,,,1N) 

A 


P.S.R.   BACKUP  TRANSFER  DECK 

//BOXSIOID    JOB    (0826,0232FP,55HJ) .• J . P . HYNES • ,T IME=4 

//JOBLIB       DD    DSNAME=F0826.PSB,DISP=SHR, V0L=SER=LINDA,UNIT=2314 

//STEP1    EXEC    PGM=B2 

//FT06F001  DD  SYSOUT=A, SPACE= (TRK,2 ) 

//FT09F001     DD  DSNAME=F0826.R8, UN IT=2321 , DI SP= (OLD, KEEP ) , 

//  VOLUME  =  SER=CEL004,LABEL=(  ,,,IN) 

//FT13F001     DD  DSNAME=F0826.MT 030 ,UN IT=2400 , DISP= ( NEW , KEEP ) , 

//  V0L=SER=NPS390,LABEL=(2,SL), 

//  DCB=(RECFM=FB,LRECL=30,BLKSIZE=3000) 

//* 
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POD  SELECTION  PROGRAM  DECK 


//RGXSIOIE    JOB    (0826,023?FP,55HJ) , • J.P.HYNES* ,"IME=8 

//El    EXEC    FORTCLG 

//FOPT.SYSPR  INT    DD    SYSOUT=A  ,  SPACE=  (  TRK  ,  5  ) 

//FORT.SYSIN     DD    * 

C  PrD    SELECTION    PROGRAM 

C  THIS    PROGRAM    SELECTS    SHIPMENTS    GOING    TO    SPECIFIED    PODS 

C  DURING    A    SPECIFIED    TIME    FRAME,    AND 

C  TRANSFERS    THE    RECORDS    TO    LOGICAL    UNIT    14. 

C  INPUT    DATA    ARE: 

C        1.   POD  CODES  OF  THE  RECORDS  WHICH  ARE  TO  BE  TRANSFERED. 

C        2.   TERMINATION  PARAMETERS  WHICH  STOP  THE  PROGRAM  WHEN  THE 

C  NUMBER  OF  RECORDS  TRANSFERED  EXCEEDS  THEM.  (THIS  FEATURE 

C  IS  BUILT  IN  SO  THAT  THE  NUMBER  OF      RECORDS  TRANSFERED 

C  TO  FTLE  14  CAN  BE  CONTROLLED.   THESE  TERMINATION  PARAMETERS 

C  OPERATE  ACCORDING  T0  POD   GROUPS,  AND  WILL  TERMINATE  THE 

C  PROGRAM  ONLY  WHEN  ALL  THE  RECORDS  OF  THE  TERMINATING 

C  POD  GROUP  HAVE  BEEN  TRANSFERED. 

f      FILE  13  IS  THE  PRELIMINARY  SHIPMENT  RECORDS  FILE. 

C      FILE  14  IS  THE   SHIPMENT  FILE  I. 

r 

C      CONTROL  CARD  INPUT  FORMAT:  (IKE  CARD  FOR  EACH  GROUP  OF  PODS) 

C  CARD  COLUMNS  1-5:   NUMBER  OF  SHIPMENTS,  WHICH  WHEN  EXCEEDED, 

C  WILL  TERMINATE  THE  TRANSFER  AFTER  ALL 

C  SHIPKEMTS  FHP  ^HE  PODS  LISTED  ON  THIS  CARD 

C  HAVE  SEEN  TRANSFERED. 

C  (IF  NO  LIMIT  is  DESIRED,  LEAVE  BLANK) 

C  CARD  COLUMNS  6-8:   NUMBER  OF  PHDS  LISTED  ON  THIS  CARD. 

C  CARD  COLUMNS  9-11:  FIRST  POD  MNEMONIC. 

C  CARD  COLUMNS  12-14:  SECOND  POD  MNEMONIC. 

C  ETC.  FOR  EACH  PPD  (UP  TO  24  PODS). 

C 

c 

IMPLICIT  INTEGERS   (  A-Z  ) 
INTEGER*2  PIECES,  DATE 
DIMENSION  A(6) ,NSHP(24) ,P0D(24) 

C 

r 

DATA  CH0/1H0/,CH0/1H0/ 

WRTTE(6,9) 
9  F0RMAT(«1?JD  SHIPMENT  SELECTION  PROGRAM.',//) 

REWIND  14 

NUMT=0 
6  REWIND  13 

READ(5, 1,END=2)  T ERM, NPOD, POD 
1  FORMAT( 15, I3.24A3) 

IF(TERM.EQ.O)  TER M= 999999999 

DO  15  1=1,24 
15  NSHP( I )=0 

NUM=0 

IF(TERM.LT.NUMT)GC  TO  2 
5  READ(13,4,END=7)  P, A , SCGOX, CUBE , WEIGHT , P I ECES , DATE , COMM,TACCTC 

4    FORMAT ( A3,6A1,A1,2A4,2A2,A3, A4) 

r 
u 

C 

r   ;};  £  5jt  £  3(t  3jt 

C      DATE  SCREEN  AND  SELECTION  FOLLOW.     (IF  ANY) 

C 
C 

DO  11  1=1, NPOD 

IF(P.EQ.POD( I ) )  GO  TO  12 

11  CONTINUE 
GO  TO  5 

12  NUM=NUM+1 

NSHP( I )=NSHP(I)+1 
DO  21  1=2,6 

IF( A( I) .NE.CHO)  GO  TO  21 
A(I)=CHO 
21  CONTINUE 

C 

c 
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WPITF( 14,14)     A. SCGOX, CUBE, WEIGHT, PIECES, DATE 
14    FQRMAT(6Al,Al,2A4f2A2) 


GO    TO    5 

7  NUVT=NUMT+NUM 

WRITE(6,8)  POD,NSHP,NUM,NUMT 

8  FORMAT (•  POD  GPOUP^'  , 2X, 24( A4 , 1 X )  ,/, 

*  •  SHIPMENTS=« ,2415,/, 

*  •  TOTAL  SHIPMEVTS='  ,17, •  .   CUMULATIVE  TP  ANSFERS  =  * , 

*  17,//) 
GO  TO  6 

2    ENDFILE     14 
STOP 
EN<D 

/* 

/7L  INK.SYSPRINT  DD  S YSOUx=A , SPACE= ( TRK . 4) 

//SO.FT06F001  DD  S  YSOUT=*  ,  S  PACE=  (  TRK  ,  5  ) 

//30.FT13F001  DD  DSNAME  =  FQ826.R8 , UN  I T  =  2321, DI S P= (OL D, KEEP ) , 

//  V0LUME=SER=CEL004,LABEL=(  , ,  ,IN) 

//G0.FT14F001  DD  DSNAME=&uUT , UNI T  =  S YSDA , D I SP= ( NEW, PA SS  )  , 

//  DCB=(RECFM=F6,LRECL=19,8LK$!ZE=3  515), 

//  SPACE=(CYL,15,RLSE) 

//GO.SYSIN  DD  * 

14RA3RJ1RJ3SA1TA2UB1UC2UD6UL7UM1UM4UQ2XE2SA3 

/* 

7/E2         EXEC    dGM=IERRCOOO 

//SHRTLTB    DD    DSNAME=SYS1.S0RTLIB,DISP=£HR 

//SORTIN    DD    DSNAME  =  &0'JTtUNIT  =  SYSDA,DISP=(OLD, DELETE) 

//SOPTOUT  DD    DSNAME=F0826.SHFI2,UNIT=232l,DISP=(0LD,KEEP), 

//  VOLUME=SEP=CEL005,SPACE=(CYL,50) , LABEL =EXPDT=74365, 

//  DCB=(RECFM=FP,BLKSIZF=1995,LRECL=19) 

//SORTER    DD    SYSGUT=A,SPACE=(TRKtl,RLSE) 

//S0RTWK01    DD    UNI T=SYSDA, S PACE=( CYL , ( 5 , 1 ) ,PLSF , CONT t g ) 

//S0RTWK02    DD    UNI  T  =  SYSDA,  S  PACE=  (CYL  ,  (  5  ,  1 )  ,PLSE  ,CCK'T  I  G  ) 

//S0P.TWK03    DD    UNI T=SYSDA, S P ACE=< C YL , < 5 , 1 ) ,RLS F ,CONT I G ) 

//SORTWK04    DD    UNIT=SYSDA,SPACE=(CYL, (5, 1) ,R LSE ,CONTI G) 

//SYSIN    DD    * 

SORT    FIELDS=(1,6,CH,A) 

/* 
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CONSIGNEE  SCREEN  PROGRAM  DECK 


//B0XS101F    JIB     (0826,0232^,55^),'  J.P.HYNES' 

//     EXEC    FOPTCLG 

//FORT.SYSIN    DD    * 

C  CONSIGNEE    SCREEN    PROGRAM 

C  UNIT    20     IS    THE    SCREENED    POD,     CONSIGNEE,     BREAKBULK    POINT    FILE 

IMPLICIT    INTEGER*2     (A-Z) 

INTEGER*^    PCD 

DIMENSION      C0M1(6),CQN2(6),CDN3( 6) 

DATA       CHO/1HO/,CHO/1HO/,BLNK/1H    / 
23    READ(5, 1,END=2)    CCN1 , C0N2 ,C0N3 , POD 

1  F0PM/fT(6Al,2X,6Al,2X,6Al,8X,43  ) 
DO    3    1=2,6 

IF(C0N1( I J.EQ.CHO)    CONi(I)=CHO 
TF(C3N2(  D.EQ.fHO)    CGN2(I)=CH0 
IF(C0NI3(  D.EQ.CHO)    C0N3(I)=CH0 
3    CONTINUE 

WRIT  (2 0,21)     P0D,CGN1,C0N1,C0N3 
21    F0»MAT( A3,18A1) 

JF(C0N2(6).NE.BLNK)WRITE(20,21)     PnD,CONl ,CCN2 , C0N3 
GO    TO    23 

2  REWIND    20 
STCP 

END 

A 

//GO.FT20F001  DD  DSNAME  =  F08  26. SPCBF, UN  I T  =  2321 , DI SP= ( NEW, KEEP ) , 

//  VOLUME  =  SER  =  C EL  005, L ABEL =EXPDT  =  74365, SPACE= (CYL,4), 

//  DCB= (RECFM=FB,LRECL=21,BLKSIZF=1995) 

//GO.SYSIN    DD  * 

BTHCOP  WT0JH2       K                PA3 

B^HDOP  WT0JH2       K                RA3 

BTHEOP  WT0JH2       K               R£3 

BTHKOP  WT0JH2       K                PA3 

RTHR^P  WT0JH2       K               RA3 

BThCQB  WTOJH?       K               RA3 


(POD,   CONSIGNEE,   BREAKBULK  POINT 
\  CARD  FILE 


Z40151 

N00604 

L 

XE2 

Z40152 

N00604 

L 

XE2 

Z 40154 

N00604 

L 

XE2 

Z40156 

N00604 

L 

XE2 

Z40157 

N00604 

L 

XE2 

Z40  301 

N00604 

L 

XE2 

Z  40  30  5 

N00604 

L 

XE2 

Z41564 

N00604 

L 

XE2 

Z41795 

N00604 

L 

XE2 

Z41796 

N00604 

L 

XE2 

Z71114 

N00604 

L 

XE2 

Z82951 

N00604 

L 

XE2 

Z83974 

N00604 

L 

XE2 

N00  352 

N00604 

L 

XE2 
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CONSIGNEE  MATCH  PROGRAM  DECK 


//BOX$101G    JOB    (0826,0232FP,55HJ), • J.P.HYNES1 ,TIME=4 

//50PT    EXEC    PGM=IFPRCOOO 

//SOPTLIB    DD    DSNAME=SYS1.S0RTLIB,DISP=SHP 

//SORTTN    DD    DSN*ME=F0826.SPC BF, UN  I t  =  232  1, DI S P= ( OLD, KEEP ) , 

//  VOLUME  =  SER=CEL 005, LA  BEL  =  ( , , ,  IN) 

//SDRTOUT    DD    DSNAME=£0UT1 , UNT T=SYSDA , DI SP=( NEW , PASS ) , 

//  DCB=(RECFM=FB,LRECL=21,BLKSIZE=3  507) , 

//  SPACE=(CYL,l,RLSE) 


//SOPTPP    DD    SYSCUT=A,SPACE=(TRK,1,RLSE) 

DD    UNIT=SYSDA,SPACE=(TRK, (' 
//S0RTWK02    DD    UN  I T  =  SYSD A, SPACE= ( TPK , ( 9 , 1) , RLSE , CONT IG ) 


//SOOTWKOl    DD    UNIT=SYSDA,SPACE=(TRK, (9, 1 ) , RLSE , CONT I G ) 


//SGPTWK03    DD    UNIT=SYSDA,SPACE=(TPK, (9, 1) ,PLSE , CONT I G ) 
//S0RTWK04    DD    UNI T  =  SYSDA, S PAC E= ( TPK , (9 ,  1 ) ,R LS E , CONT I G ) 
//SYSIN    DD    * 
SCRT     FI ELDS^( 10,6, CH, A) 

/* 

//U2  EXEC  FORTCLG 
//FOPT.SYSIM  DD  * 
C      CONSIGNEE  MATCH  PROGRAM 

C      THIS  PROGRAM  COMPARES  SHIPMENT  FILE  DATA  WlTH  KNOWN  CONSIGNEE 

C         CODES;  SHIPMENTS  WITHOUT  KNOWN  CONSIGNEE  CODES  ARE  LISTED. 

C         ALSO  MATCHED  CONSIGNEE  DATA  IS  PASSED  TO  FILE  23. 

C       FILE  15  IS  SHIPMENT  FILE  II 

C      FTLE  20  IS  THE  SORTED  SCREENEO  POD,  CONSIGNEE,  BPEAKBULK  POINT 

C  FILE. 

C      FILE  19  IS  THE  CONDENSED  POD,  CONSIGNEE  AND  BPEAKBULK  POINT  FILE. 

IMPLICIT  INTEGER*^  (A-Z) 

INTEGERS  PIECES,  DATE, TYPE 

REAL**  TCUBE.TWEIGH 
C   OM  IS  LOADED  WI+H  THE  HOLLERITH  PUNCH  12-0,12-0,12-0,12-0. 

DATA  QM/4H     / 

WRITE(6,201) 
201    FCRMAT(« 1UNMATCHED    SHIPMENT    LISTINGS'     ,///) 

ENDF=1 

LCCNB1=0 

LCCNB2=0 

LPOD=0 

SUMU=0 

MATCH=0 

P E AD ( 1 5, 34, END= 8 )C0NB1,C0NB2, CUBE, WEIGHT, PIECES, DATE 
34    FORMAT(  A4,A2, 1X,A4, A4,A2,A2) 

C  THE    FOLLOWING    TWO    STATEMENTS    ARE    NEEDED    TO    CORRECT       THE    PROBLEM 

C  ^F    ILLEGAL    CHARACTERS    NOT    SETTING    THE    SIGN    BIT. 

IF(CONBl.GE.O)  C0NP1=QM 

TF(C0NB2.GE .0)  C0NB2  =  QM 

SUM=1 

6  IF(MATCH.GT.O)  WRI7E<19,3)  POD , C0NX1 , C0NX2 , C0NA1 , C 0NA2 , C0NY1 , CrNY 
MATCH=0 
READ(20,3,END=51)PGD,CONX1,CONX2,CONA1,CONA2,CONY1,CONY2 

3  F0RMAT(A3,3(A4,A2) ) 
IF(CONAl.GE.O)  GO  T0  6 
G^  TO  5 
312  MATCH=1 

7  RFAD(15,34,END=8)C0NB1,C0NB2,CUBE,WEIGHT,PIECES,DATE 

C     THE  FOLLOWING  TWO  STATEMENT  ARE  NEEDED  TO  CORRECT   the  PROBLEM 
C       HF  ILLEGAL  CHARACTERS  NOT  SETTING  THE  SIGN  BIT. 

IF(CONBl.GE.O)  C0NB1  =  QN* 

IF(C0NB2.GE  .0)  C0NB2=QM 

SUM=SUM+1 

IF{ENDF.E0.2)  GO  TO  52 
5  IF( (C3NA1.EQ.C0NB1) .AND. (C0NA2.EQ.C0NB2 ) )  GO  TO  312 

IF(CONA1.LT.CONB1 )  GO  TO  6 

IF( (C0NA1.EQ.C0NB1). AND. (C0NA2.LT. CCNB2) )  GO  TO  6 
52  CONTINUE 

IF(LPOD.EQ.O)  GO  TO  112 

IF( (C0NB1.E0.LCONB1) . AND. ( C0NB2. EQ.LC0MB2 ) )  GO  TO  113 


/; 
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WRITE (6*111 1      LC0NB1,LCCNB2,TSHIP,TCUBE,TWEIGH 

111  FCPMAT(5X,       A4,A2,1X,I5,2F10.0) 
SUMU=SUMU+TSHIP 

112  TCUBE^FLOAT(CUBE) 
TWEIGH=FLQAT (WEIGHT) 

TSHI°=1 
LPOD=POD 
LC0NB1=CCNB1 
LCONB2=CONB2 
GO  TO  7 
11?  TrUBE=TCUBE+FLOAT(CUBE) 

TWEIGH=TWEIGH+FLOAT( WEIGHT) 
TSHIP=TSHIP  +1 
GO  TO  7 
51  CONTINUE 
ENDF=2 
GO  TO  52 
8  CONTINUE 

IF(M*TCH.GT.O)  WRITE(19,3)  POD, C0MX1 t C0NX2 t CON Al , CCNA2 * C0NY1 » CCNY2 

SUMU=SUMU+TSHIP 

IF(SUMU.GT.O)  WRITE(6,111)      LC0NB1 , LC0NB2 , TSHI P , """CUB E, T WE  I GH 

WPITE(6,202)       SUM 

202  FORMAT(«  TOTAL    NUMBER    OF    SHI PMENTS  =  '  , I  10 ) 
WRITE(6,203)     SUMU 

203  FORMAT! •  THTAL    NUMBER    OF    UNMATCHED    SHI PMENTS= • , I 10 ) 
REWIND    15 

STOP 
END 


/G0.FT15F001  DD  DSNAME  =  F0826.SHFI 2, UN  I T  =  2321 , DI SP  =  ( OLD, KEEP) , 

//  V0LUME=SER=CEL005,LABEL=( ,  ,  ,  IN) 

//G0.FT20F001  DD  DSNAME=60UT1 , UNI T= SYSDA, DISP= (OLD, DELETE ) 

//GO.FT19F001  DD  DSNAME=C0UT2 , UNIT=SYSDA, DI SP= < NEW , PASS ) , 

//  DCB=(RECFM=FB,LRECL=21,BLKSIZE=3  507), 

//  SPACE=(TRK,5,RLSE) 

//U3    EXEC  PGM=IERRCOOO 

//SORTLIB  DD  DSNAME=SYS 1 . SOPTL IB*DI S P=SHR 
//SCPTIN  DD  DSNAME=G0UT2,UNIT=SYSDA,DISP=(0LD, DELETE) 
//SOPTOUT      DD  DSNAME=F0826.MT023,UNIT=2314, VOL=SER=DUFFY, 
//  DISP=(NEW,KEEP)  ,DCB= ( REC FM  =  FB, LRECL  =  2 1 , BLKS  IZF  =  3507) , 

//  SPACE=(TRK,5)  ,LABEL=EXPDT=74365 

//SORTPP  DD  SYS0UT=A,SPACE=(TRK,1,PLSE> 

//S0PTWK01  DD  UNIT=SYSDA,SPACE=(TRK, (7,1) ,RLSE , CONTI G ) 
//S0RTWK02  DD  UNI t  =  SYSDA, S PACE= (TRK , ( 7 ,  1) , RLSE ,CONT IG ) 
//SCPTWK03  DD  UNI T=SYSD A,SPACE= ( TRK , ( 7 , 1 ) , RLSE , CONT IG ) 
//S0PTWK04  DD  UNIT=SYSDA,SPACE=(TRK, (7, 1) , RLSE , CONT IG ) 
//SYS  IN  DD  * 
SDRT  FIELDS=( 1 , 3 , CH, A, 4, 6 , CH, A) 

/* 
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SERIALIZATION  PROGRAM  DECK 

//B0XS101H    JOB    (0826,0232FP,55HJ) , ' J.P.HYNES1 

//Vl    EXFC    FORTCLGP 

//FORT.SYSIN    DD    * 

C      SERIALIZATION  PROGRAM 

IMPLICIT  INTEGER*4  (A-Z) 

I\'TEGER*2  NCON, NPOD, BBPS 

DIMENSION   C0NK2)tC0N2(2)  ,BBP(2)  ,BBPF(2,  1000) 

DIMENSION  BPOD(IOOO) 

DATA  BLNK/2H   / 

NCCNJ  =  0 

NBBP=0 

NPOD=0 

LPOD=0 

WRITE(7,111) 

111  FORMAT('PORT  NAMES  AND  MNEMONICS  FILE") 

23  READ(23, 1,END=2)  POD, C0N1, C0N2 , BBP 

1  F0RMAT(A3,3(A4,A2) ) 
IF(L°OD.EQ.POD)  GO  TO  9 
NP0D=NP0D+1 
WRITE(7,112)  POD, NPOD 

112  FCRMAT(50X, A3,22X,I5) 
LPOD=POD 

LCGM11=0 

LC0NI12  =  0 

9    CONTIMUF 

1^    (  (C0NK1)  .NE.LC0N11)  .OR . < C0N1 < 2) .NE . LC0N12 ) )    GO    TO    211 
IF(C0N2(2).NE.BLNK)     WRITE(21,22)     C0N2, NCON, NPOD,  BBPS 
GO    TO    23 
211    LC0N11=C0N1(1) 
LC0N12=C0N1(2) 
NC0N=NC0N+1 

IF(NBBP.EQ.O)    GO    TO    11 
DO    12    I=1,NBBP 
IF(POD.NE.BPODU)  )    GO    TO    12 
DO    13    J =1,2 
IF(BBPF( J, I ).NE.38P(J) )    GO    TO    12 

13  CONTINUE 
BBPS=I 
GO    TO    14 

12    CONTINUE 
C  ADD    BBP    TO    LIST 

11    NBBP=NBBP+1 

BPOD(NBBP)=POD 

DO    16    J  =  l,2 
16    BBPF(J,NBBP)=BBP( J) 

BBPS=NBBP 

14  CONTINUE 

WRITE(21,22)    C0N1,NC0N,NP0D,BBPS 
22    F0RMAT(A4, A2,3A2) 

IF(C0>J?(2).NE.BLNK)     WRITE(21,22)     C0N2,  NCON,NPOD,  BBPS 
GO    TO    23 

2  WPITE(6,24)    NPOD,NCON,NBBP 

24  FOPMAT( ^PRELIMINARY    POD/CONS  I GMEE/ BBP    PROCESSOR' ,/ , 

*  •    NUMBER    CF    P0D=',I5,/, 

*  •    NUMBER    OF    CONS IGNEES  =  • , 15 , /  , 

*  •    NUMBER    OF    BBP=,,I5) 
WRITE(7f 113) 

113  FORMAT( •****• ) 
STOP 

END 

//GO.FT21F001  DD  DSNAME=£OUT , UNIT=SYSDA ,DISP= ( NEW, PASS ) , 

//  DCB=(RECFM=FB,LRECL=18,BLKSIZE=3510), 

//  SPACE=(CYL,1,RLSE) 

//G0.FT23F001    DD    DSNAME  =  F0826.MT023 , UN  I T=2314 , VOL  =  SER=DUFFY, 

//  DISP=(OLD,KEEP),LABEL=(, , ,IN) 

//V2    EXEC  PGM=IERRC000 

//SORTLIB  DD  DSNAME=SYS 1. SORTL IB, DI SP=SHR 

//SORTIN  DD  DSNAME=eOUT,UNIT=SYSDA,DISP=(OLD, DELETE) 

//SORTOUT  DD  DSNAME  =  F0826 . MT022, UN  I T  =  23 14 , VOL  =  SER  =  DUFFY, 

//  DISP=( OLD, KEEP) , DCB=(  RECFM  =  FB, LP ECL=18 , BLKS  IZE=3510) , 

//  SPACE=(CYL,1) ,LABEL=RETPD=90 

//SORTPR    DD    SYS0UT=A,$PACE=(TRK,1,RLSE) 

//S0RTWK01    DD    UNI T=SYSD A, SPACE= (TRK , ( 9 , 1) , RLSE , CONTIG ) 


//S0RTWK02    DD    UNI T=SYSDA, SP ACE= (TPK , ( 9 , 1) ,RLSE , CONT I G ) 
//SORTWK03    DD    UNI T=SYSD A, SPACE= (TRK , (9 , 1) ,RLSE , CONT I G) 
//SORTWKO^    DD    UNI T=SYSD A, SPACE=(TRK » ( 9 , 1) , RLS E , CONT I G) 
//SYSIN    DD    * 
SORT    FIELDSM  1,6,CH,A) 

/* 
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SHIPMENT  SERIALIZATION  AND  LISTING  PROGRAM  DECK 


//BOX$101I  JOB  (0826,0232FP,55HJ) , • J.P.HYNES* ,TIME=4 

//  EXEC  FORTCLG, REGION. GO=l30K 

//FCPT  .SYSIN  DD  * 

C      SHIPMENT  SERIALIZATION  AND  LISTING  PROGRAM 

C       THIS  PROGRAM  CONVERTS  SHIPMENT  DATA   TO  SEQUENCE  NUMBERS, 

C  AND  CREATES  PRELIMINARY  FILES  FOR  STUFFING  LIST  PROGRAM. 

C       FILE  15   IS  SHIPMENT  FILE  II. 

C      FILE  16  IS  SHIPMENT  FILE  III 

C      FILE  22  IS  THE  SCRTED  SERIALIZED  CONSIGNEE  FILE. 

C      FILE  23  IS  THE  CONDENSED  POD,  CONSIGNEE,  BBP  FILE. 

C      FILE  24  IS  THE  CONDENSED  SERIAL  FILE. 

IMPLICIT  INTEGER**  (A-Z) 

TNTFC-R*?  I  PR 

INTEGER*2  p{ ECES , BBP , SER, PODS , BS , PS, DATE, TYPE 

REAL*4  PROP,SNGL 

REAL*8  DFLOAT,TCUBE.TWEIG,         SUMC.SUMW 

DIMENSION  PROP (1500) , BBP (1500) , PODS (1500) 

DIMENSION   SUMC(  30  >,  TCUBE( 1500  ), TWE IG ( 1500 ), SUMW (  30  ) 

DIMENSION  TSHIP( 1500) ,SUMS(  30  ) 

DATA  QM/4H     / 
C 
C 
C 

c 

MXCNDM=1500 
SUMU=0 
MXP0D=30 
C     WHEN  TEST=1,  SHIPMENT  DATA  WILL  BE  PASSED  TO  FILE  16  AND  24. 
TEST=0 
TEST=1 
ENDF=1 
NC0N=0 

DO  113  I=1,MXP0D 
SUMC(I)=0.0 
SUMW( I )=0.0 
113  SUMS(I)=0 

DO  1  I=1,MXCNDM 
P0DS(I)=0 
TSHIP( I )=0 
TCUBE( I )=0.0 
1  TWEIG(I)=0.0 

READ( 1 5, 34, END= 8 )C0NB1,C0NB2,SCG0X, CUBE, WEIGHT, PIECES, DATE 
IFC0NB1.GE.0)   C0NB1  =  QM 
IF(CONB2.GE.O)   C0NB2=QM 

6  READ(22,3,END=51)CCNA1,C0NA2,SER,PS,BS 
3  F0RMAT(A4,A2,3A2) 

PODS(SER)=PS 
BBP( SER)=BS 
GO  TO  5 

7  R E AD ( 1 5, 34, END= 8 ) CONB 1 ,C0NB2 , SCGOX, CUBE, WEIGHT, PIECES, DATE 
34  FORMAT (    A4, A2 , A  1, A4, A4, A2, A2 ) 

IF(CONBl.GE.O)   C0NB1=0M 

IF(C0NB2.GE  .0)   C0NB2  =  QM 

IF(ENDF.E0.2)  GO  TO  52 
5  IF( (C0NA1.EQ.C0NB1) .AND. (C0NA2.EQ.C0NB2) )  GO  TO  9 

IF(CONAl.LT.CONBl)  GO  TO  6 

IFUC0NA1.  EQ.C0NB1).  AND.  (C0NA2.LT.  C0NB2)  )    GO    TG    6 
52    CONTINUE 

SUMU=SUKU+1 

GO    TO    7 
9    CONTINUE 


TSHIP(SER)=TSHIP(SER)+1 

TCUBE(SEP)=TCUBE(SER)+DFLOAT(CUBE) 

TWEIG(SER)=TWEIG(SEP)   +DFLOAT ( WE  IGHT ) 

IF(TFST.EQ.1)WPITE(16,40)   DAT E, PS, SCGOX  , WE  I GHT ,CUBE , SER , PI ECES 

40  F0RHAT(3A2,2A4,2A2) 

GO  TO  7 
8  CONTINUE 

WRfTE(6,21lf  SUMU 
211  FORMATC  NUMBER  OF  UNMATCHED  SHI  PMENTS=  ■  ,  1 10, 

*     '   (THESE  SHIPMENTS  WERE  NOT  TRANSFERED  TO  FILE  16) ■) 


113 

COMPUTE  POO  TOTALS  AND  PROPORTIONS. 

DO  111  I=1,MXCNDM 

NPPD=PODS(I  ) 

SUMS(NPOD)=SUMS(NPOD)+TSHlP( I ) 

SUMW(NPOD)=SUMW(NPOD)+TWEIG(I ) 

SUMC<NPOD)=SUMC(NPOD)+TCUBE(I) 
111  CONTINUE 

DO  114  I=1,MXCNDM 

J  =  PODS(I  ) 

IF(J.EQ.O)  GO  TO  114 

PROP( I )=0.0 

IF(  SUMC(J) .LT.( .99) )  GOTQ  114 

IF(TCUBE(I).LT.< .99) )  GC  TO  114 

PROP(I)=SNGL(TCUBE(I)/SUMC(J)) 
114  CONTINUE 

ENDF=1 

1  =  0 

LPOD=0 

NPOD=0 

221  READ(23, 11,END=53)  PODN ,CAA, CAB , CBA,CBB , BA, BB 
11  F0RMAT(A3,3< A4, A2  )  ) 

IF(PODN.NE.LPOD)  GO  TO  13     „Aa%%    „„  TO  10 

IF((CAA.NE.LCAA).OR. ( CAB.NE . LCAB ) )  GO  TO  18 

IFCACON   .EQ.O)  GO  TO  221 

WRITE(6,212)  CBA.CBB 
212  F0RMAT(23X,A4,A2) 

GO  TO  221 

18  PODCON=PODCON+l 
LCAA=CAA 

IF(TSHIP(I  ).LT.l)  GO  TO  15 

WRITl(6. 14)  C A A. CAB. I , C3A,CBB , BA , BB . 

*  SBPCI ltT^HIPl I),TCUBE(I),TWEIGU  ), 

*  PROP(I) 

1^  F0RMAT(4X,A4,A2, IX,  I5,7X, 

*  A4,A2,4X,A4,A2,I5.1X,I10,4X,012.5,D14.5,5X,F7.5) 

IF(TEST!EQ?l)(IWRITE?24!l9)P0DNtCAA,CAB,BA,BB,I,P0DS(I),BBP(I),PR 

19  FORMAT! A3, A4,A2,A4,A2,4A2) 

13    IHNPOD^GT.O)    WRITE16.16)    LPOD,PODCON,  ACON, SUMS (NPOD ) , 

*  SUMC(NPOD) ,SUMW(NPOD)  „«.*,-„    rnklfTrklccf     ,     Ta 
16    FORMATS     P0D=',A3,f.       NUMBER    OF    LISTED    CONSI  GNEES=  •  ,  14, 

*U  '.       NUMBER    OF    ACTIVE    CONSIGNEES* •. .14. /. 

*  •  TOTAL    SHIPMENTS=I , 17, •  .       TOTAL    CUBE=«        ,D14.8, 

*  •  TOTAL    WEIGHT=»     ,014.8) 
IF1EN0F.EQ.2)    GO    TO    12 
ACON=0 

PODCON=0 
NP0D=NP0D+1 
LPOD=PODN 
WRITE(6,17)     PODN 

17/OR^TCONSIGNEEA3,SEQ  OLD    CODE  BBP         SEQ      T         SHIPMENTS- 

*  LUNbibiNtt  =>nsi    cube  WEIGHT       CUBE    PROPORTION',//) 

GO    TO    18 
51    ENDF=2 

GO    TO    52 
53    ENDF=2 

GO    TO       13 
12    STOP 

END 

//G0.FT15F001    DD    DSNAME  =  F0826.SHF I  2 , UN IT  =  2321 , DISP= < OLD,KEEP ) , 

//  V0LUME=SER=CEL005,LABEL=( ,,,IN) 

//GO.FT22F001    DD    DSNAME=F0826.MT022 , UNIT=2314,DI SP= ( OLD, KEEP) , 

^go^f'SoI'Ed^^ 

^WtISF^I^D^ 

//G0.FT24F001  DD  DSNAME=F0826 .MT024, UN IT=2314, VOL=S ER=LINDA, 
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SHIPMENT  SCREEN  AND  SPLIT  PROGRAM  DECK 


//BGX$101J    JOB    (0826.0232FP,55HJ),» J.P.HYNES* ,TIME=4 
//Jl         EXEC    PGM=IERRCOOO 

//SORTLIB    DD    DSNAME  =  SYS1. SORTLIB, DISP=SHR 
//SORTIN    DD    DSNAME=F0826.R6,UNIT=2314,V0L=SER=DUFFY, 
//  DISP=(OLD,KFEP),LABEL=(, ,,  IN) 

//SOPTOUT    DD    DSNAME=£OUT,UNIT=SYSDA,DISP=(NEW,PASS) , 
//  DCB=(RECFM=FB,LRECL=18,BLKSIZE=3510) , 

//  SPACE=(CYL?81RLSE) 

//SORTPR    DD    SYSOUT=A,SPACE=(TRK,l,RLSE) 

//SORTWKOl  DD  UNI T=SYSD A, SPACE= (CYL » ( 4, 1) ,RLSE , CONT I G) 
//S0RTWK02  DD  UNI T=SYSD A, SPACE=(CYL , ( 4 , 1) ,RLSE ,CONTI G ) 
//SCRTWK03  DD  UNI T=SYSDA,S PAC E=(CYL , ( 4, 1) ,RLSE ,CCNT I G) 
//S0RTWK04  DD  UNI T=SYSDA ,S PAC E=(CYL , (4 , 1) ,RLSE ,CONT IG ) 
//SYSIN  DD  * 
SORT    FIELDS=(1,2,CH,A) 

//J2  EXEC  FORTCLG 
//FORT. SYSIN  DD  * 
C  SHIPMENT    SCREEN    AND    SPLIT    PROGRAM 

IMPLICIT    INTEGER*4    (A-Z) 

INTEGER*2    DTER, PODS , TYPS, SW, SC , CONS, LST DTE, TCNI , TCN IN 

INTEGER*2    PIECE2 

REAL*4    FLOAT,XMAXC,XMAXW,XCUBE,XWGHT,XPIECE,XCPP,XWPP,UWGT,UCUB, 
1  XNUM 

PRINT=1 

UNT0=13 
C   3333333333  333333333333333 

MAXC=32000 

MAXW=32000 
C   3333333333333333333333333 

LSTDTE=0 
20   READ(18.1,END=22)  DTER , PODS , TYPS, WGHT, CUBE , CONS , PI ECE2 
1  F0RMAT(3A2,2A4,2A2) 

TF(DTER.GT.3)  PRINT=0 

IFUSTDTE.EQ.DTER  )    GO    TO    3 

LSTDTE=DTER 

TCNI=0 
3  TCNI=TCNI+1 

IF( (MAXC.GT. CUBE) .AND. (MAXW.GT. WGHT) )  GO  TC  211 

TCNIN=-TCNI 

XMAXC=FLOAT(MAXC) 

XMAXW=FLOAT(MAXW) 

XCUBE=FLOAT(CUBE) 

XWGHT^FLOAT(WGHT) 
6  PIECES=PIECE2 

XPIECE=FLCAT(PIECES) 

XCPP=XCUBE/XPIECE 

XWPP=XWGHT/XPIECE 

MCL=IFIX(XMAXC/XCPP) 

MWL=IFIX(XMAXW/  XWPP) 

NUM=MCL 

IF(MWL.LT.NUM)  NUM=MWL 

IF(NUM.GT.O)  GO  TO  311 

PIECE2=PIECE2+100 

GO  TO  6 
311  XNUM=FLOAT(NUM) 

UWGT=XWPP*XNUM 

UCUB=XCPP*XNUM 

SW=IFIX(UWGT+.51) 

SC  =  IFIX(UCUB  +  .5D 
314     IF(NUM.LT. PIECES)    GO    TO    313 

SW=IFIX(XWGHT) 
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SC=IFIX(XCUBE) 
GO  TO  ill 
313  XWGHT=XWGHT-UWGT 
XCUBE=XCUBE-UCUB 
PTFfFS=PI FCES-NUM 
IMPRINT.  GT.O)WRITE(    6,114)  DTER,  POOS  ,TYPS  ,      S  W,SC  ,  CONS  ,  TCNIN 

114  IF?UNToIgT?0)WRITE(UNTO,113)  DTER, PODS, TYPS,      SW  ,  SC , CONS , TCNIN 
113  FORMAT(7A2) 

GO  TO  314 
211  SW=WGHT 

111  IF( UNTO. GT.O) WRITE (UNTO, 113)  DTER  ,  PODS  .JYPS,  SW,  SC, CONS,  TCNI 
IF(PRINT.GT.O)WRITE(    6,114)  DTER, PODS , TYPS , SW, SC , CONS ,TCNI 
GO  TO  20 
22  CONTINUE 
STOP 

'/G0.FT13F001  DD  DSNAME=F0826 .P6, UNIT =2314, VOL=SER=DUFFY , 
^/GO.FT18F001  =  DDLD^NAME  =  aOUT,UNlT  =  SYSDA,DISP  =  ( OLD,  DELETE) 
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//BOX$101K  JOB  (0826,0232FP,55HJ),» J.P.HYNES1 
//II    EXEC  PGM=IERRCOOO 

//SORTLIB  DO  DSNAME=SYS1. SORTLIB, DISP=SHR 
//SOPTIN  DD  DSNAME=F0826.MT024,UNIT=2314,V0L=SER=LINDA, 
//        DISP=(OLD,KEEP),LABEL=(,,, IN) 
//SORTOUT  DD  DSNAME=£OUT,UNIT=SYSDA, DIS P= < NEW , PASS ) , 
//        DCB=(RECFM=FB,LRECL=23,BLKSIZE=3519), 
//        SPACE=(TRK,6,RLSE) 
//SORTPR  DD  SYSOUT=A,SPACE=<TRKtl,PLSE) 

//SORTWKOl  DD  UNI T=SYSD A» SPACE= (TRK , ( 6 , 1) , RLSE , CONT I G) 
//SGRTWK02  DO  UNI T=SYSDA, SPACE= (TRK , ( 6 , 1) ,RLSE , CONTI G ) 
//SGRTWK03  DD  UNIT=SYSDA, SPACE=( TRK , ( 6 , 1) , RLSE , CCNT I G) 
//S0PTWK04  DD  UNIT=SYSDA,SPACE=(TRK, (6, 1) t RLSE , CCNT I G) 
//SYSIN  DD  * 
SORT  FIELDS=( 18, 2 ,CH, A ,20, 2 ,CH, A ) 

//I2  EXEC  FGPTCLGP,PEGI0N.G0=99K 

//FORT. SYSIN  DD  * 

C      STUFFING  LIST  GENERATION  PROGRAM 

C      THIS  PROGRAM  GENERATES  STUFFING  LISTS 

IMPLICIT  INTEGER*2(A-Z) 

INTEGEP*4  CUT4 

REAL*4  PCT, FLOAT 

DIMENSION  SAPC30  ),EAP(30  ),SAB(200  ),EAB(200  ) 

DIMENSION  CGNGRPQ500)  ,L0C(1500) 

DIMENSION   PEC(IOOOO) 

DIMENSION  SPCTU500) ,CNS ( 1500) , SLP( 2, 30  ) 

C     READ  SORTED  SEQUENCE  FILE  AND  SET  STARTING  AND  ENDING  ADDRESSES 

NC0N=1 

NPGD=1 

NBBP=1 

READ(10,1)C0NSEQ,  LPODS ,LB8PS , PERCNT 

SAP(1)=1 

SAB( 1)=1 

L0C(1)=1 

SPCT(1)=PERCNT 

CNS(1)=C0NSEQ 
4  READ(10,1,END=11)  CONSEO,   PODS, BBPS , PERCNT 

1  F0RMAT(15X,4A2) 
IF(P0DS.EQ. LPODS)  GO  TO  2 
LPODS=PODS 
EAP(NDOD)=NCGN 
NP0D=NP0D+1 
SAP(NP0D)=NC0N+1 

2  IF(BBPS.EO.LBBPS)  GG  TO  3 
EAB(NBBP)=NCON 
NBBP=NBBP+1 
SAB(NBBP)=NC0N+1 
LBBPS=B8PS 

3  NC0N=NC0N+1 

LGC(NC0N)=NC0N 
SPCT(NCON)=PERCNT 
CNS(NCON)=CONSEQ 
GO  TO  4 
11  EAP(NPOD)=NCON 
EAB(NBBP)=NCON 
NSLA=NBBP+1 
C      CREATE  LEVEL  1  STUFFING  LISTS 
PNTR=1 

DO  211  J=1,NP0D 
BEGIN=SAP(J) 
END=EAP( J) 
1112  FGRMAT(10I7) 
SLP(1, J)=PNTR 
START=PNTR 
DG  212  K=BEGIN,END 
REC(PNTR)=PNTR+3 
REC(PNTR+1)=CNS(K) 
REC(PNTR+2)=NSLA 
PNTR=PNTR+3 
212  CGNTINUF 
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REC( PNTR-3)=START 
211    CONTINUE 
;  SORT    PERCENTAGES    BY    SIZE    (ASCENDING    ORDER) 

DO    21     I=l,NPOD 
BEGIN=SAP(I ) 
END*EAP( I)-l 

34  FLAG=1 

DO  33  J=BEGIN,END 

IF(SPCT( J).LE.SPCT(J+1) )  GO  TO  33 

FLAG=2 

TEMP=SPCT(J) 

SPCT( J)=SPCT(J+1) 

SPCT(J*1)=TEMP 

TEMP=LOC(J) 

LOC( J)=LOC(J+l) 

LOC(J+l)=TEMP 
33  CONTINUE 

IF(FLAG.EQ.2)  GO  TO  34 
36  SUM=0 

END=END+1 

ASSIGN  GROUPS 

DC  35  J=BEGIN,END 

SUM=SUM+SPCT( J) 

GRP=1 

IF(SUM.LT.  900)  GRP=GRP+1 

IF(SUM.LT.  600)  GRP=GRP+1 

IF(SUM.LT.  300)  GRP=GRP+1 

K=LOC(J) 

CONGRP(K)=GRP 

35  CONTINUE 
21  CONTINUE 

WRITE(7,7631) 
7631  FORMAT! •  CONSIGNEE  GROUP  DATA  FILE'  ,39X , • 05' ) 
WRITE (7, 15)   (CNS(I ) , CONGRP( I) ,  I  =  1,NC0N) 
15  FORMAT* 16(14,11) ) 
I=-l 
J  =  0 

WRITE(7,15)  (I,J,K=1,16) 
DO  111  1=1,4 
BC  =  0 

PNTR=NC0N*3  +  1 
DO  112  J=1,NP0D 
BEGIN=SAP(J) 
END=EAP( J) 
SLP(2, J)=PNTR 
START=PNTR 

121  BC=BC+1 
FLAG=1 

STRT=SAB(BC) 
STP=EAB(BC) 

DO  122  L=STPT,STP 
IF(CONGRP(L) .LT.I)  GO  TO  122 
FLAG=2 

REC(PNTR)=PNTR+3 
REC(PNTR+1)=CNS(L) 
PEC(PNTR+2)=0 
PNTR=PNTR+3 

122  CONTINUE 

IF(FLAG.EQ.2)  REC ( PNTR-1 )=BC 
IF(STP   .LT.END)  GO  TO  121 
IF(PNTR.EQ. START)  GO  TO  123 
REC(PNTR-3)=START 
GO  TO  112 

123  SLP(2,J)=0 
112  CONTINUE 

NSLVL=2 

WPITE(7.151)  NSLVL,NSLA,I 
151  FORMATS  ORDERED  STUFFING  LIST  FILE    • ,35X, 
*  'OS1,  12,13,14) 
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52 
53 


54 
11 


(PEC(K) 
14,13)) 


NDATA=PNTR-1 

WRITE(7,152) 

F0RMAT(12I6) 

WRITE! 7t 153) 

F0RMAT(6(I5, 

PCT=1.0 

WRITE(7,154) (PCT,L=1 

FORMAK  18F4.2) 

CONTINUE 

STOP 

END 


NO AT A, USLP(L,K),L=1  ,NSLVL  ) ,K=l,NPOD) 


K=1,NDATA) 


NSLA) 


/* 

//GO.FTIOFOOI    DD    DSNAME=£OUT , UNIT=SYSDA ,DISP= ( OLD, DELETE ) 

/* 
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VESSEL  SCHEDULE  GENERATION  PROGRAM  DECK 


//30X$101L 
//LI    EXEC 
//FORT. SYS 


13 
11 


12 

111 


1 
2 
3 


VESS 

THIS 

IMPL 

TNTE 

REAL 

DIME 

DIME 

DATA 

UNT 

VY=0 

NPCD 

READ 

READ 

FORM 

IF(T 

NPOD 

PGDN 

GO    T 

CONT 

NCNT 

READ 

READ 

IF(T 

FORM 

NCNT 

CN(N 

GO    T 

CONT 

READ 

FORM 

IF(Z 

SEED 

IF(P 

FORM 

i 
i 

LN  = 
DT= 
U=ME 


JOB     (08  26,0607FT,55HJ) ,• J.P.HYNES1 
FORTCLG 
IN    DD    * 
EL    SCHEDULE    GENERATION    PROGRAM 

PROGRAM    CREATES    CONTAINER    VESSEL    SCHEDULES. 
ICIT    INTEGER**    (A-2) 

GER*2       TCC,NOCA,VPOD,VY,  ADA,    N,MSCC 

*4    FLOAT,RNDNUM,S.U,RiSQRT,XADA,Z 
NSION    TOC(300),NOCA(300) , VPOD  (300 ) , MSCC( 300) 
MS  I  ON    CN(IOO)  , P0DN(100),NM(3) ,CT(5) ,MX(5) , SPOD( 5) , MSCX( 5 ) 

AST/4H****/,BLNK/4H  / , D0L/4H$$$$/ 

=    10 

=  0 

(5,11)    TEMPI 

(5,11)    TEMPI. TEMP2 

AT(A4,46X,A4) 

EMP1.EQ.AST)     GO    TO    3 

=NP0D+1 

(NP0D)=TEMP2 

0    13 


INUE 

=  0 

(5,2)    TEMPI 

(5,2)    TEMPI, TEMP2 

EMP1.EG.AST)    GO    TO    12 

AT( A4,20X,A4) 

=NCNT+1 

CNT)=TEMP2 

0    4 

INUE 

(5,111)    TIME, SEED, PRINT, ZZZ 

AT(50X,I5,I8, II,  13) 

ZZ.LT.O)  ZZZ=365 

=SEED*10  +  1 

RINT.EQ.l)  WRITE(6,1) 

AT(1H1, 

•LINE     VESSEL 

ERVE     EXTRA', /40X, 

TYPE        MSC 
LINE  (ALPHA) 

STARTING  DATE  (DAY  OF  FIRST  ARRIVAL) 
AN  CIRCUIT  TIME 


VOYAGE    ARRIVAL 
AVAILABLE* , 


POD   CONTAINER   RES', 
///) 


141 
112 


124 
113 


CIRCUIT  TIME. 


116 
118 
117 


121 
123 
122 
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S  =  STANDARD  DEVIATION  OF 

READ(5,112)  LN,NM,DT,U,S 

F0RMAT(A4.2X.3A4,30X, I4,2F4.0) 

IF(LN.EQ.AST)  GO  TO  999 

RCOUNT=0 

READ(5,113)  (SPODU  )  ,  CT(  I ) ,  MSCX  (  I),MX(  I)  ,1  =  1,5) 

FCRMAT(5(2A4,2I3) ) 

DO  114  L  =  l,5 

CPOD=SPOD(L ) 

IF(CPOD.EO.BLNK)  GO  TO  114 

IF(CPOD.EQ.DOL)  GO  TO  115 

DO  116  1=1, NPOD 

IF(CPOD.EQ.PODN(I ))G0  TO  117 

CONTINUE 

WRITE(6,118)  CPOD,NM 

F0RMAT(1H  ,A4,«  NOT  FOUND  IN  POD  LIST.   VESSEL=' ,3A4) 

STOP 

CCT=CT(L) 

DO  121  J=1,NCNT 

IF(CCT.EQ.CNU)  )  GO  TO  122 

CONTINUE 

WRITE(6,123)  CCT,NM 

F0RMAT(1H  ,A4,»  NOT  FOUND  IN  CONTAINER  TYPE  LIST.   VESSEL= ' , 3A4 ) 

STOP 

CONTINUE 

RC0UMT=RC0UNT+1 

TOC(RCOUNT)=J 

VPOD(RCOUNT)=I 

NOCA(RCOUNT)=MX(L) 

MSCC(RCOUNT)=MSCX(L) 

CONTINUE 

GO  TQ  124 


120 

115    CONTINUE 
C  GENERATE    SCHEDULE,    AND    WRITE 

C  R    =    RANGE    OF    CIRCUIT    TIME. 

R=S*SQRT(12.0) 
XADA=FLOAT(DT+TIME) 
ADA=DT+TIME 
142    M=0 

N=RCOUNT 
VY=VY+1 

132  M=M+l 
N  =  N-1 

IF(PRINT.EQ.I)    WRITE(6,131)    LN  .  NM, VY, ADA ,  PODN ( VPOD< M ) ) , 

1  CN(TOC(Mh,MSCC(M)  ,NOCA(M) 

131    F0RMAT(1X,A412X,3A4,3X, I 6t 3X, I  7, 2X, A4, 4X, A4, 7X, I  4, 6X, 14  I 

W9ITE(UNT,133)    VY,ADA,  VP3D < M ) ,N, TOC ( M) ,MSCC < M J , NOCA ( M) 

133  F0RMAT(7A2) 
IF(N.GT.O)    GO    TO    132 

CALL    RANDU(SEED,SEED,RNDNUM) 
Z=U    +    R*(RNDNUM    -    .5) 
IF(Z.LT.l)    Z=1.0 
XADA=XADA    +    Z 
ADA=IFIX(XADA) 
IF(ADA.LT.ZZZ)    GO    TO    142 
GO    TO    141 
999    STOP 
END 

A 

//GO.FT10F001  DD  DSNAME=GOUT , UNIT=SYSDA » DISP= < NEW. PASS ) t 

7/  DCB=(RECFM=FB,LRECL=20,BLKSIZE=3460), 

//  SPACE=(TRK, (5,1),RLSE) 

//GC.SYSIN  DD  * 

PORT  NAMES  AND  MNEMONICS  FILE 

RA3 

RJ1 

RJ3 

SA1 

TA2 

UB1 

UC2 

UD6 

UL7 

UM1 

UM4 

UQ2 

XF2 

CONTAINER  DESCRIPTION  FILE. 

AML  200  AMID  1119  40000 

AML  40  AM2D  2565  46000 

APL  20  AP1D  1134  40300 

APL  40  AP2D  2394  45000 

MTSN  20  MT1D  1100  40000 

NT§N  24  MT2D  1427  46200 

MJSN  40  MT3D  2386  46200 

£FEL  20  PF1D  1157  40300 

PFEL  40  PF2D  2398  46000 

SLND  35  SLID  2090  45000 

SSC  20  SS1D  1144  38000 

SSC  40  SS2D  2383  46000 

STLZ  27  ST1D  1791  46000 

STLZ  40  ST2D  2381  46000 

USLX  20  US1D  1105  40000 

USLX  40  US2D  2398  46000 

VESSEL  SCHEDULE  FILE  0     19731360 

SLND   SATTAHIP  I  810.7  9.5 

PA3  SLID  32100$$$$  oiu. f  v.d 

SSC    SATTAHIP  II  1019.8  6.6 

PA3  SS1D   3100$$$$ 

APL    KEELUNG  I  1522.114.9 

RJ1  AP1D  11100$$$$ 

APL    KEELUNG  I  713.011.4 

RJ1  AP2D   6100$$$$ 

APL    KAOHSUNG  I  7  9.7  6.5 

RJ3  AP1D   5100$$$$ 

PFEL   KAOSUNG  II  3076.5101. 

RJ3  PF1D   3100$$$$ 

SLND   PHIL  I  1012.2  9.9 

SA1  SLID  26100$$$$  lUU^  *' 

PFEL   PHIL  II  1325.210.2 

SA1  PF1D  18100$$$$ 
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APL    PHIL  til 
SA1  AP1D  20100$$$$ 
USLX   GUAM  I 
TA2  US2D  11100$$$$ 
STLZ   GUAM  II 
TA2  ST1D  15100$$$$ 
PFEL   GUAM  III 
TA2  PF1D  11100$$$$ 
SLND   OKINAWA  I 
UB1  SLID  27100$$$$ 
SSC    OKINAWA  II 
UB1  SS1D  35100$$$$ 
APL    OKINAWA  III 
UB1  AP1D  58100$$$$ 
SLND   INCHON  I 
UC2  SLID  13100$$$$ 
PFEL   INCHON  II 
UC2  PF1D  24100$$$$ 
APL    INCHON  III 
UC2  AP1D  21100$$$$ 
SLND   PUSAN  I 
UD6  SLID   6100$$$$ 
PFEL   PUSAN  II 
UD6  PF1D  13100$$$$ 
APL    IWAKUNI  I 
UL7  AP1D   5100$$$$ 
APL    IWAKUNI  II 
UL7  AP2D   4100$$$$ 
APL    YOKOHAMA  I 
UM1  AP1D  17100$$$$ 
SLND   YOKOHAMA  II 
UM1  SLID   5100$$$$ 
APL    YOKOSUKA  I 
UM4  AP1D  13100$$$$ 
SLND   YOKOSUKA  II 

UM4  SLID  10100$$$$ 
SSC    SASEBOI 
UQ2  SS1D   7100$$$$ 
USLX   HONO  I 
XE2  US1D  10100$$$$ 
USLX   HONO  II 
XE2  US2D   8100$$$$ 
STLZ   HONO  III 
XE2  ST1D  19100$$$$ 
STLZ   HONO  IV 
XE2  ST2D  12100$$$$ 
MTSN   HONO  V 
XE2  MT2D  23100$$$$ 
HONO  VI 

AMID  10100$$$$ 
HONO  VII 

AM2D  11100$$$$ 


610.011.2 

712.5  8.9 
1218.414.6 
1631.219.7 

712.2  8.7 
1630.624.7 
1213.8  3.6 
1221.128.3 

817.610.1 
1529.018.0 
1017.621.5 
2020.3  9.5 

5  9.7  9.9 
1014.5  9.2 

711.315.5 
2042.543.1 

715.816.7 
1222.829.0 
1427.611.5 

416.611.5 

515.314.3 

6  5.9  4.3 
713.813.4 
8  6.5  4.0 

1937.513.2 
1429.0  1.0 


AML 
XE2 
AML 
XE2 
**** 

//L2    EXEC  PGM=IERRC000 

//SORTLIB  DD  DSNAME=SYS 1 . SORTL IB, DI SP=SHR 
//SORTIN  DD  DSNAME=£OUT,UNIT=SYSDA, DISP=(OLD, DELETE) 
//SOPTOUT  DD  DSNAME=F0826.V1.UNIT=2314,VOL=SER=LINDA, 
//  DISP=(OLD,KEEP) . DCB= < RECFM=FB,LRECL=20, BLKS IZE= 3460) 

//  SPA CE= (CYL«l)f L ABEL =EXPDT =74180 

//SORTPR  DD  SYS0UT=A,SPACE=(TRK,1»RLSE) 

//S0PTWK01  DD  UNIT  =  SYSDA,SPACE=(TRK, (9,  1) ,RLSE,CCNTIG) 
//S0RTWK02  DD  UNIT=SYSD A, SPACE= (TRK , (9 , 1) ,RLSE , CONT I G) 
UNIT=SYSDA,SPACE=(TRK,<9, 1) , RLSE »CONTIG ) 
UNIT=SYSDA,SPACE=(TRK, (9,1) ,RLSE , CONT IG) 


//S0RTWK03 
//S0RTWK04 
//SYS IN  DD 


DD 
DD 
* 


SORT 
/* 


FIELDS=(3,2,CH,A,1,2,CH,A,7,2,CH,D) 
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PARAMETER  SETUP  PROGRAM  DECK 

//BOX$101M    JOB    !0826,0232FP,55HJ), • J.P.HYNES' 

//    EXEC    F0RTCLGP,REGI0N.G0=76K 

//FORT.SYSIN    DD    * 

C  PARAMETER    SETUP    PROGRAM 

IMPLICIT    INTEGER*4    (A-Z) 

INTEGER*4    MCtMWiBP 

COMMON/CNTBLK/MC!20) , MW< 20) , BP ( 20 » 30) , S AF( 20, 30) ,NCNT, NPGD,NCON , 
1    NCNTRG,KCNTRG(20) 

C 

REAL*4    CFCUB,CFAF,CFUT<.CUESP,CFESP,XADJ 

INTEGER*4  TOTCSC,TOTCSP,CCCUB,CVPB 

COMMON/STATBK/    CFCUB(30    ),CCCUB(30    ),CFUT!20,30    ) , CUESP ( 20 ,30    ), 

1  CFESPC30  ),CVPB!20,3Q  ),XADJ(   1),CFAF!30  ),TOTCSC(   1), 

2  T0TCSPC30  ) 
REAL*4  CRNG,XCMXLB 
INTEGER*^  SEED 

COMMON/PROBBK/  SEED,CRNG(30  ) , XCMXLB( 20 , 30  ),CSTRT(30  ), 
1     CDSTYP(30  ),CRELT(30  ) 
CPMMON/IOUNT/  UNIT130 
DIMENSION  P0DNI30),CN!20) 
C    PODN(I)  =  THE  FIRST  FOUR  CHARACTERS  OF  THE  (I)TH  POD  MNEMONIC. 
C    CN(I)  =  THE  FIRST  FOUR  CHARACTERS  OF  THE  (I)TH  CONTAINER  TYPE 
C  MNEMONIC. 

REAL*4    XTEMP,XTEMP1,XTEMP2,FL0AT 
INTEGER*2    NUM 

DIMENSION    KEY!2),ALPHA!5),NUM(4)  „,™,,,.,. 

DIMENSION    XTEMP!8),TEMPD!l8),TITLE(18),TEMPl!12) 
DATA    AST4/4H****/,BLANK/4H  /, D0L/4H$$$$/ 

r 

2    FORMAT! 18A4,2A4) 
11    FQRMAT!12A4,2X,A4) 
21    F0RMAT!12A4,2X,2A4) 
31    F0RMAT(A4,I4,4A4,  A4,2U0) 
41    FQRMAT!2A4, 5F4.2) 
51    F0RMAT!A4,       F10.0,2F4.2) 
61    FORMAT! A4,6X, 14, F4. 0,214) 
813    F0RMAT(4(I2,I6,I8)) 

900  FORMAT!1     ',///•    KEY    =    • ,2A4, T20, 18A4) 

901  FORMAT!'  • , 12A4, T51 ,A4,T59, 14 ) 

902  FORMAT! '0',T10, 'PORT  NAME • ,T49 ,' MNEMONIC • ,T59, • POD  #•/) 

903  F0RMAT!'1» ,T32, 'FILE  CONVERSION') 

904  FORMAT! «0« ,T10, 'CONSIGNEE  NAME ' ,T49, • MNEMONI C ', T62, • CON  #•/) 

905  FORMAT!'  • , 12A4,T51, 2A4,T62, 1  4 ) 

906  FORMAT! '0' ,T33, 'FORECASTED     EXPONENTIAL     STOWAGE  LOSS', 

*  •     MAX  BOCK' ,/, 

1'    CONTAINER' ,T33, 'CONTAINER  SMCOTHI NG' , 22X , • PROB* , /, 

2'         TYPE  POD         BREAKEVEN  UTILIZATION  PARAMETER1/) 

908  FORMAT!'     • , 3X, A4, 5X, A4,6X, 14, 9X, F4. 2, 10X , F4. 2 , 10X, I 4.F14. 3) 

909  FORMAT! '0','  FORECASTED       EXPONENTIAL  FORECASTING',/, 

1  '  CONTAINER  SMOOTHINC 

2  ADJUSTMENT',/, 

3'  POD        CUBE       PARAMETER      FACTORS') 

910  FORMAT! '0« ,T12, 'CONTAIN.         CONTAIN.  MAX.  MAX.'/ 

1'       CARRIER  SIZE  DESIG.  CUBE  WE  I GHT • ,T51, • CONT.     # 

2GR0UP' ) 

911  FORMAT!'  ',2X,A4,T141I4,T25,A4,T34,I4,T42,I5,T52,I4,I10) 

912  FORMAT!'  • , A4,3X. F8. 6, 7X,  F4. 2 ,8X ,F4.2) 

914  FORMAT! «0',T7, 'MINIMUM' ,/,  T7, • ADVANCE'  , T52 ,' RESERVE • ; 
1T7, 'BOOKING     DISTRIBUTION  DISTRIBUTION       RELEASE', 

*  /,'  POD   (NON-RES)     RANGE', 
3T37, "TYPE* ,T 52, ' TIMES ' ) 

915  FORMAT!'  »,A4,T7  , 14, T21, F4. 0 , T37 , 1  4, T52 , 14) 

999  FORMAT!'  NUMBER  OF  P0DS=',I3,/,  •  NUMBER  OF  CONSIGNEES  =',14,/, 

1  •  NUMBER  OF  CONTAINER  TYPES=« , 14, /, 

2  •  NUMBER  OF  CONTAINER  GR0UPS=*,I4) 
C 

WRITF!6.903) 
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C    READ    PORT    NAMES    AND    MNEMONICS    FILE.    KEY    1000 

10    NPOD=0 

READ(5,2)UTITLE(I),I=1,18),KEY) 

WRITE(6,900)KEY, TITLE 

12    READ(5i21?((TEMPl(I),I=l,12),TEMP2) 
IF(TEMPHl)  .EQ.AST4)G0    TO    20 

NP0D=NP0D+1 

P0DN(NP0D)=TEMP2 

WRITE(6,901)((TEMP1(I),I=1,12),P0DN(NP0D),MP0D) 

GO   TO    12 

C         READ    SERIALIZED    MNEMONIC    AND    RANK    FILE. 
20    NCON=0 

WPITE(6,710) 

710  FORMAT(///,  •  CONSIGNEE  DATA'//) 

715  F0RMAT(!7P0D   CONSIGNEE       6  8  P  SERIAL  NUMBERS', 

*    i      %*  ) 
714  READ(24,711,END=712)  ALPHA, NUM 

711  F0RMAT(A3,2(AA,A2),4A2) 
WRITE(6,7l3)  ALPHA, NUM  ^    ov 

713  F0RMAT(1X,A3,2X,   A4,A2,8X,  A4, A2  ,3X,4I 7 ) 
NC0N=NUM(1) 
GO  TO  714 

712  CONTINUE 

C    READ    CONTAINER    DESCRIPTION    FILE.    KEY    3000 
NCNT=0 

READ(5^2)((TITLE(I),I=1,18),KEY) 
WRITE(6,900)KEY, TITLE 

32    READ(5t31)?(TEMPKI),I  =  l,6),TEMP2,TEMP3,TEMP4) 
IF(TEMP1(1).EQ.AST4)     GO    TO    400 
NCNT=NCNT+1 
CN(NCNT)=TEMP2 
MC(NCNT)=TEMP3 
MW(NCNT)=TEMP4 
KCNTRG(NCNT)=1  „_t     „ 

SSiTI'fgf^lI^S^l^Wi&^zJTgNCNCNTI.MCCNCNTl.MWlNCNTl.NCNT, 

1  KCNTRG(NCNT) 

GO    TC    32 
400    CONTINUE 

8111    ^0RMAT(J8CCD,FILE«,57X,«5',5X,2A4) 

WRITE(7,813)(KCNTRG(I),MC(I),MW(I  ),I  =  1,NCNT) 

C    READ    CONTAINER    BREAKEVEN,    UTILIZATION,    AND    BOOKING    PARM/STAT    FILE 
40    DO    45    I=1,NCNT 

DO    45    J=1,NP0D  ,     rt 

XTEMP2=FLOAT(MC(I))*(.5) 
BP(I,J)=IFIX(XTEMP2)        ,       , 
SAF( IjJ)=FLOAT(MC(I) )*(.l) 
CFUT(I, J)=.8 
XCMXLBU  ,J)  =  1.0 

45  CREAD(5!2)UTITLE(I),I  =  1,18),KEY) 

42  WRRElTDf5U??0iEMYP2irEMh,     (XTEMP  (  I  )  ,  1=1 ,  5  , 
IF(TEMP2.EQ.AST4)    GO    TO    500 

00    46    I=1,NCNT 
IF(TEMP2.EQ.CN(I ) )G0    TO    47 

46  CONTINUE 
GO  TO  43 

47  CONTINUE 

IF(TEMP31eq!pCDN(J))  GO  TO  49 

48  CONTINUE 

43  WRITE(6,44)  TEMP2.TEMP3 

44  FORMAT! •  FATAL  ERROR  IN  MAIN  44 
STOP 
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49  TEMP2=MC(I) 
XTEMP1=XT£MP( 1)*FL0AT(TEMP2) 
BPCIf J)sIFlX(XTEMPl) 

C  NOTE:       SAFO     IS    INTEGER. 

SAF( I, J)=FL0AT(TEMP2)*XTEMP(4) 
CFUT( I . J)=XTEMP(2) 
XCMXLBt I, J)»XTEMP(5) 
CUESP( I, J)=XTEMP(3) 
GO    TO    42 

500  CONTINUE 
WRITE(7,8112)KEY 

8112  FORMAT!'  OCBUBPS  FI L E • ,53X, ' 5 • , 5X, 2 A4) 

WRITE( 7,823)((BP( I, J ) .CFUTt I , J > , CUESPC I , J),SAF(I,J) , XCMXLB(I,J) 
*    I=1,NCNT) ,J=1,NP0D) 
823  F0RMAT(3(I8. 2F4.2,I4,F4.2) ) 

WPITE(6,906) 

DO  501  J=1,NP0D 

WRITE (6.908) (CN( I) ,PODN(J),BP! I , J ) ,CFUT ( I , J) , CUESP ( I , J ) , S AF ( I , J 
1       XCMXLB!I,J) ,1=1,NCNT) 

501  CONTINUE 
C 

C  READ  CONTAINER  FORECAST  STATISTICS/PARAMETERS  FILE 

50  DO  55  J=1,NP0D 
CFCUB( J)=6.0 
CFESP( J)=.5 
CFAF(J)=1.0 

55  CONTINUE 

READ! 5, 2) ( ( TITLE ( I ) , I =1 , 18 ) , KEY) 
WRITE!6,900)KEY, TITLE 
WRITF!6,909) 
52  READ!5,51)  TEMP2, (XTEMP! I ) , I = 1 ,3 ) 
IFCTEMP2.EQ.AST4)  GO  TO  600 
DO  56  J=1,NP0D 
IF(TEMP2.EQ.P0DN!J))  GO  TO  57 

56  CONTINUE 
WRITE!6,54)  TEMP2 

54  FORMAT!'  FATAL  ER-ROR  IN  MAIN-  54  ■  ,A4) 
STOP 

57  CFCUB! J)=XTEMP( 1) 
CFESP( J)=XTEMP(2) 
CFAF! J)=XTEMP(3) 
GO  TO  52 

600    WPITE(6,912)(P0DN(J) , CFCUB! J) ,CFESP(J) , 
1  CFAF! J),J=1,NP0D) 

WOITE(7,8113)KEY 

8113  FORMAT!*    OCFSP      F  ILE  •  ,  54X,»  5«  ,  5X  ,  2A4) 
WRITE(7,833)     (CFCUB t I ) ,CFESP!  f ) , 

1  CFAF( I) ,I=1,NP0D) 

833  FORMAT!     4 ( F10 . 0, 2F4. 2 ) ) 
C 

C  READ  CONTAINER  BOOKING  HORIZON  AND  SUCCESS  RATE  FILE 
60  DO  65  I=1,NP0D 
CRELT( I )=0 
CSTRT(I)=2 
CRNGd  )  =  1 

65  CDSTYP! I  )=0 

READ (5, 2)  ((TITLE! I)  ,1  =  1,18) , KEY) 
WRITE(6,900)KEY, TITLE 
62  READ(5,61)  TEMP5, TEMP6, XTEMP1 ,TEMP2,TEMP3 
IF(TEMP5.EQ.AST4)  GO  TO  70 
DO  66  I=1,NP0D 
IF(TEMP5.EQ.P0DN(I) ) GO  TO  67 

66  CONTINUE 
WPITE!6,68I  TEMP5 

68  FORMAT!*  FATAL  ERROR  IN  MAIN  68  »,A4) 
STOP 

67  CSTRT( I )=TEMP6 
CRNG(I)=XTEMP1 
CDSTYPU  )=TEMP2 
CRELT( I)=TEMP3 
GO  TO  6? 
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70    CONTINUE 

WRITE (6j 9151 (PODN CI )tCSTRT(I) , CRNG( I ) ,CDSTYP( I ) , 
1  CRELTII) ,I=1,NP0D) 

WRITE(7,8114)    KEY  e%# 

8114    FOPMATC    OCBHSR    F  ILE  '  ,  54X, '  5'  ,  5X  ,  2A4) 
^43)     (CSTRTClItCRNGCI)i 


843 


WRITE(7.843. 
1   CDSTYP(I),CRELT(I) . I=1,NP0D) 
F0RMAT(6(I4?F4. 0,212)  )     m„„ 
WPITE(6,999i  NPGD,NCON,NCN^,NCNTRG 
STOP 
END 


^/G0.FT24F001  DO  DSNAME=F0826 .MT024 , UNIT=2314, VOL=SER=LINDA, 

//        DISP=(OLD,KEEP),LABEL=(,,, IN) 

//GO.SYSIN  DD  * 

PORT  NAMES  AND  MNEMONICS  FILE 

R  A3 
RJ1 
RJ3 
SA1 
TA2 
UB1 
UC2 
UD6 
UL7 
UM1 
UM4 
UQ2 
XE2 

CONTAINER  DESCRIPTION  FILE.  ,nnnn 

AML  200  AMID  1119  40292 

AWL  40  AM2D  2565  46000 

APL  20  AP1D  1134  40300 

APL  40  AP2D  2394  45000 

MT<N  20  ^TID  1100  40000 

MTSN  24  MT2D  1427  46200 

MTSN  40  MT3D  2386  46200 

PFEL  20  PF1D  1157  40300 

PFEL  40  PF2D  2398  ^6000 

SLND  35  SLID  2090  45000 

SSC  20  SS1D  1144  38000 

SSC  40  SS2D  2383  46000 

STLZ  27  ST1D  1791  46000 

STLZ  40  ST2D  2381  46000 

USLX  20  US1D  1105  40000 

USLX  40  US2D  2398  46000 

CONTAINER  BREAKEVEN  AND  UTILIZATION  PARAMETERS 

**** 

VOLUME  FORECAST 

BOOKING  FILE 
/* 
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APPENDIX  C 


Simulation  Program 
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COMMON  VARIABLES 


IMPLICIT    INTEGER*2    (A-Z) 

INTEGER**  MC,MW,BP 

COMMON /CNT3LK/MC( 20) , MW( 20 ) , BP ( 2  0 ,30) , SAF ( 20 t 30 ) ,NCNT, NPOD,NC ON , 
1  NCNTRGtKCNTRG(20) 
THIS  BLOCK  CCNTAINS  CONTAINER  TYPE  INFORMATION,  NUNBER  OF  POD'S  AND 
CONSIGNEES. 
MC(T)  =  THE  MAXIMUM  CUBE  (CUBIC  FEET)  OF  THE  (I)TH  CONTAINER  TYPE. 
MW(I)  =  THE  MAXIMUM  CARGO  WEIGH1"  FOP  THE  (  I  )  TH  CONTAINER  TYPE. 

(POUNDS) 
BP(T,J)=  THE  BREAKEVEN  POINT  FOR  THE  (I)TH  CONTAINER  TYPE  DESTINED 

TO  THE  (J)TH  POD.     (CUBIC  FEET) 
SAF(I,J)=  STOWAGE  ADJUSTMENT  VOLUME  FOR  THE  (I)TH  CONTAINER  TYPE 

AND  (J)TH  POD.   THIS  VOLUME  IS  SUBTRACTED  FROM  THE  THE  VOLUMF 
OF  THE  CONTAINER  TO  GIVE  THE  STUFFABLE  VOLUME  OF  THE  CONTAINER 
(CUBIC  FEET) 
NCNT  =  NUMBER  OF  CONTAINER  TYPES. 
NPOD  =  NUMBER  OF  POD'S. 
NCON  =  NUMBER  OF  CONSIGNEES. 
NCNTRG  =  THE  NUMBER  OF  CONTAINER  GROUPS  WHICH  IDENTIFY  STUFFING 

PRIORITIES/SEQUENCES. 
KCNTRG(I)  =  THE  CONTAINER  GROUP  OF  CONTAINER  TYPE   (I)* 

THE  CONTAINER  GROUP  NUM3ER  MUST  BE  IN  THE  RANGE  OF  1  T0 
(NCNTRG).   LOWER  GROUP  NUMBERS  WILL  BE  STUFFED  BEFORE 
HIGHER  GROUP  NUMBERS  IN  EACH  CHAPTER  OF  THE  STUFFING  LISTS. 

REAL**  CFCUB,CFAF,CFUT,CUESP,CFESP,XADJ 

INTEGER**  TOTCSC,TOTCSP,CCCUB,CVPB 

COMMON/STATBK/  CFCUB(30  ),CCCUB(30  ),CFUT(20,30  ) ,CUESP ( 20 ,30  ), 

1  CFESP(30  ),CVPB(20,30  ),XADJ(200  ),CF&F(30  ) , TOTCSC ( 1500  ), 

2  TCTCSP(30  ) 

THIS  BLOCK  CONTAINS  THE  GENERAL  OPERATIONAL  STATISICS. 

CFCUB(I)  IS  THE  FORECASTED   DAILY  CUBE  FOR  THE  (I)TH  POD. 

(CONTAINERIZABLE  SHIPMENTS) 
CCCUB(I)  IS  THE  CUMULATIVE  CUBE  THAT  HAS  ARRIVED  SINCE  THE  FIRST 
OF  THE   7  DAY  PERIOD  FOR  THE  (I)TH  POD. 
(THIS  IS  USED  TO  COMPUTE  CFCUB(I).) 
(CONTAINER IZABLE  SHIPMENTS) 
CFUT(I,J)  IS  THE  FORECASTED  CONTAINER  UTILIZATION   PROPORTION 

FOR  THE  (I)TH  CONTAINER  TYPE  GOING  TO  THE  ( J  )  TH  POD. 
CUESP(I,J)  IS  THE  CONTAINER  UTILIZATION  EXPONENTIAL  SMCOTHING 

PARAMETER  (ESP)  FOR  THE  (I)TH  CONTAINER  TYPE  GOING  TO 

THE  (J)TH  POD. 
CFESP(J)  IS  THE  FORECASTING  ESP  FOR  CONTAINER  SHIPMENTS 

GOING  TO  THE  (J)TH  PDD. 
CVPB(I,J)  IS  THE  TYPE  (I)  CONTAINER  VOLUME  PRESENTLY  BOOKED  FOR 
THE  (J)TH  POD,  BUT  NOT  AS  YET  STUFFED. 
(CUBIC  FEET). 
XADJ(I)=  THE  BREAKEVEN  POINT  ADJUSTMENT  FACTOR  FOR  THE  (I)TH 
STUFFING  LIST. 

(USED  WITH  THE  STUFFING  LISTS) 
CFAF(J)=   ADJUSTMENT  FACTOR  FOR  CONTAINER  SHIPMENTS  FORECASTS, 

(J)TH  POD. 
TOTCSC(I)  IS  THE  TOTAL  CONTAINERIZABLE  SHIPMENTS  CUBE  IN  THE 
( I )TH  CONSIGNEE  STACK. 
(ON  THE  FLOOR   A.T  CFD) 
(CUBIC  FEET) 
THTCSP(I)  IS  THE  VOLUME  OF  CONTAINERIZABLE  SHIPMENTS  ON  THE 

CFD  FLOOR  (UNSTUFFED)  TENTATIVELY  DESTINED  FOR  THE  (I)TH  POD. 
(CUBIC  FEET) 
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CnMMON/CSBLK/  CSF ( 1500 ) ,CSL  (  1 500 )  ,  SLP( 10, 30) , NS L VI 
THIS  BLOCK  CONTAINS  POINTER$  tq  THE  CONTAI NER IZABLE  SHIPMENTS  STACKS, 
AND  POINTERS  TO  THE  STUFFING  LISTS. 

CSF(I)  POINTS  TO  THE  FIRST  RECORD  IN  THE  STACK  OF  THE 

( I )TH  CONSIGNEE. 
CSL(I)  POINTS  TQ  THE  LAST  RECORD  IN  THF  STACK  OF  THE 

( I )TH  CONSIGNEE. 
SLP(L,J)  POINTS  TO  THE  (L)TH  CHAPTER  (LEVEL)  OF  THE  STUFFING  LISTS 
FnP  THE  (J)TH  POD.  (THESE  POINTERS  ARE  ROTATED  WITHIN  EACH 
CHAPTER  DURING  EXECUTION  DF  THE  PROGRAM.) 
NSLVL  =  NUMBER  OF  STUFFING  LIST  CHAPTERS  (LEVELS). 

COMMON/SCBLK/  SCF(20  ,30  ),SCL(20  ,30  ),CLSCPT 
THIS  BLOCK  CONTAINS  THE  POINTERS  FOR  THE  STUFFED  CONTAINER  STACK. 
SCF(IfJ)  POINTS  TO  THE  FIRST  RECORD  IN  THE  STACK  OF  THE  (I)TH 

CONTAINER  TYPE  FOR  THE  ( J ) TH  POD. 
SCL(TfJ)  POINTS  TO  THE   LAST  RECORD  IN  THE  STACK  OF  THE  (I)TH 

CONTAINER  TYPE  FOR  THE  (J)TH  POD. 
CLSOPT  IS  THE  PARAMETER  WHICH  SUPPRESSES  THE  PRINTING  OF  THE 
CONTAINER  LIFT  REPORT.   THE  REPORT  WILL  BE  SUPPRESSED  IF 
THIS  PARAMETER  HAS  A  VALUE  GREATER  THAN  ONE. 

COMMON/CVCBLK/  CVF,CVL 
"HIS  BLOCK  CONTAINS  THE  POINTERS  FOP  THE  CONTAINER  VESSEL  CALL  STACK. 
CVF  POINDS  TO  THE  FIRST  RECORD  IN  THE  STACK. 
CVL  POINTS  TO  THE  LAST  RECORD  IN  THE  STACK. 

COMMON/TMPTCN/  TIME,  PTCN,  PTCNC 
THIS  BLOCK  CONTAINS  THE  CURRENT  DAY,  AND  COUNTERS. 

TIME  =  CURRENT  POINT  IN  TIME.  (MEASURED  IN  JULIAN  DAYS) 
PTCN  =  the  COUNTER  FOR  PARCELS. 
PTCNC=  CONTAINER  COUNTER. 

COMMON/RCSTBK/  NXTRP , R ELRP,NXTPP t RECSI Z , MXUP EC , REC(  32000) 
THIS  BLOCK  CONTAINS  RECORD  STACK  INFORMATION  FOR  SHIPMENT  RECORDS. 
NXTRP  POINTS  TO  NEXT  AVAILABLE  RECORD  AFTER  THE  SUBROUTINE  NXTREC 

IS  CALLED. 
RELRP  POINTS  TO  THE  RECORD  WHICH  IS  TO  BE  RELEASED  BACK  INT0 

THE  RECORD  POOL  BY  SUBROUTINE  RELREC. 
PECSIZ=  SIZE  OF  EACH  RECORD  IN  RECORD  POOL. 

MXUPEC  =  MAXIMUM  NUMBER  OF  RECORDS  USED  DURING  EXECUTUION. 
PEC(.)  IS  THE  RECORD  LOCATION  ARRAY. 
NXTPP  POINTS  TO  THE  NEXT  EMPTY  RECORD  IN  THE  POOL. 

(THIS  VARIABLE  IS  FOR  HOUSE  KEEPING  PURPOSES;  IT  IS  NOT  jn    BE 
USED  WHEN  REQUESTING  OR  RELEASING  RECORDS.) 
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REAL*4    CRNG,XCMXLB 

INTEGER*^    SEED 

COMMON/PROBBK/  S E ED, CRNG( 30  ) , XC MXLB ( 20 , 30  ),CSTRT(30  ), 

1     CDSTYP(30  ),CRELT(30  ) 
THIS  BLOCK  CONTAINS  PARAMETERS  FOR  THE  BOOKING  OF  CONTAINERS. 
(RESERVE  CONTAINERS,  ASSUMING  SUFFICIENT  TIME.  APE 
BOOKED  UPON  REQUEST,  WHFREAS  BEYOND  BASIC  RESERVE  CONTAINER 
BOOKING  MUST  GO  THROUGH  THE  RANDOM  SCREENING  PROCESS 
DESCRIBED  BRIEFLY  BELOW.) 
SEED  =  RANDOM  NUMBER  GENERATOR  SEED. 
CSTRT(I)  =  MINIMUM  NUMBER  OF  DAYS  IN  ADVANCE  OF  VESSEL  ARRIVAL 

AT"  the  POE  FOR  WHICH  BOOKINGS  BEYOND  THE  BASIC  RESERVE  CAN  BE 
MADE  FOR  THE  (I  )TH  POD. 
CRNG(I)  =RANGE  OF  BOOKING  DISTRIBUTION  FOP  SPACE  BEYOND  THE  RESERVE. 
XCMXLB(J,I)=  THE  MAXIMUM  BOOKING  PROBABILITY  FOR  BEYOND  BASIC 
RESERVE  TYPE  (J)  CONTAINERS  DESTINED  TO  POD  (I). 
FOR  CONTAINERS  IN  ADDITION  TO  THE  BASIC  RESERVE,  THE 
PROBABILITY  OF  OBTAINING  A  BOOKING  ON  A  VESSEL  CAPRYING 
TYPE  (J)  CONTAINERS  DESTINED  FOR  THE  ( I ) TH  POD  RANGES 
LINEARLY  FORM  0  TO  XCMXLB(J,I)  WHEN  THE  PFQUESTS   APE 
MADE  BETWEEN  THE  DAYS  (CSTRT(I))  AND   (CSTRT ( I ) +CPNG( I ) ) . 
FOR  REQUESTS  IN  ADVANCE  OF  (CSTRT ( I ) +CRNG( I )  )  DAYS, 
THE  PROBABILITY  OF  BOOKING  EQUALS  XCMXLB(J,I). 
FOP  REQUESTS  LESS  THAN  CSTPT(I)  DAYS,  THE  PROBABILITY  ?F 
BOOKING  EQUALS  ZERO. 
CDSTYP(I)  INDICATES  THE  TYPE  OF  DISTRIBUTION  TQ  BE  USED  FOR  THE 

(I)TH  POD  IN  DETERMINING  WHAT  PROPORTION  OF  TEE  AVAILABLE 
BEYOND  BASIC  RESERVE  CONTAINERS  CAN  BE  CURRENTLY  BOOKED 
ON  THE  VESSEL. 

(THIS  DISTRIBUTION  COMES  INTO  PLAY  ONLY  AFTER  IT  HAS 
BEENED  DETERMINED  THAT  A  BOOKING  WILL  TAKE  PLACE.) 
IF  (CDSTYP=1),  THEN  THE  AMOUNT   OBTAINABLE  IS  DETERMINED 
FROM  A  UNIFORM  RANDOM  DISTRIBUTION  OF  THE  TOTAL 
CONTAINERS  AVAILABLE. 

IF  (CDSTYP=0),  THEN  AMOUNT   OBTAINABLE  IS  EQUAL  TO   THE 
THE  CONTAINERS  AVAILABLE. 
CRELT(I)  =  THE  BASIC  RESERVE  CONTAINER  RELEASE  TIME. 
BASIC  RESERVE  CONTAINERS  NOT  BOOKED   ARE 
RELEASED  AND  NO  LONGER  AVAILABLE  FOR  BOOKING  CRELT(I) 
DAYS  BEFORE  THE  VESSEL'S  ARRIVAL  AT  THE  POE  DESTINED 
FOR  THE  (I)TH  POD. 

C0MM0N/CDEL8L/  CDELC^,  CDELTS,  CDELTC,  CSATT,  CTDE L ,MXADVS,MASDVA 

THIS  BLOCK  CONTAINS  DISPATCH  AND  STUFFING  DELAY  PARAMETERS. 

CDELCT=  CARRIER  TC  CFD  DELAY. 

CDELTS=  STUFFING  AND  DOCUMENTATION  DELAY  AT  CFD. 

CDELTC=  CFD  T0  CARRIER  DELAY. 

CSATT=  CDELTS  +  CDELTC.  (STUFFING  AND  TRANSFER  TIME.) 

CTDEL=  CDELTS  +  CDELTC  +  CDELCT.   ( C ARRI ER-CFD-CARP IER  TIME). 

THIS  FIGURE  REPRESENTS  THE  MINIMUM  AMOUNT  OF  TIME  IN  WHICH 
A  CONTAINER  CAN  BE  DISPATCHED  FROM  THE  CARRIER,  TPANSFERED 
TO  CFD,  STUFFED,  AND  RETURNED  TO  THE  CARRIER  FOP  LIFT. 
MXADVS  =  THE  MAXIMUM  NUMBER  OF  DAYS  IN  WHICH  A  CONTAINER  CAN  BE 

STUFFED  IN  ADVANCE  OF  ITS  LATEST  STUFFING  DATE. 
MASDVA  =  MXADVS  +  CDELTC  +  CDELTS  =  MXADVS  +  CSATT 

THIS  VARIABLE  REPRESENTS  THE  MAXIMUM  NUMBER  OF  DAYS 
IN  WHICH  A  CONTAINER  CAN  BE  STUFFED  IN  ADVANCE  OF  THE 
VESSEL  LOADING  (ARRIVAL)  DATE. 

CUMMON/CTPLBK/  CNTPOL ( 20, 30 ) 

THIS  BLOCK  CONTAINS  DATA  CONCERNING  THE  NUMBER  OF  EMP^Y  CONTAINERS 
IN  THE  CFD  PnrjL. 

CNTpQL(I,J)  =  THE  NUMBER  OF  TYPE  (I)  CONTAINERS  IN  THE  CFD  POOL 
FOR  POD  (J). 
THE  POD  IS  DISTINGUISHED  IN  THE  POOL  IN  ORDER  TO  DISTRIBUTE  THE 
AVAILABLE  CONTAINERS  ON  AN  EQUITABLE  BASIS.   IF  THIS  WERE 
NOT  DONE,  THEN  THE  POD  LOADED  AT  THE  BEGINNING  OF  THE  DAY 
WOULD  HAVE  AN  ABUNDANT  SUPPLY  OF  CONTAINERS,  WHERE  AS 
THE  POD  STUFFED   AT  THE  END  OF  THE  DAY  WOULD  BE  SHORTED. 
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^^LE^R4CCB,SCS!TH^^^^?TEf.TpS^fTESM^I:T^^^{EMPXA,TEMPtG, 

**       TEMPAS,MNAGE,MXAGE  m  ,    „„,._.     _„       #1 

COMMON    /OPSTAT/    SCCB(     30,    4),SCCBT(     30,    4),MXCB(     30,    4), 

*  MXCBTt  30,  4),TAGE(  30,  4),TSAGE(  30,  4),TWT(  30,  4), 

*  TWTT(  30,  4), 

*  TEMPAS(  4),NSHP(  30,  4),TMPCB(  4),TEMPWT{  4),TEMPAG(  4), 

*  MNAGE(  30,  4),MXAGE(  30,  4),TEMPNS(  4),TEMPMA(  4),TEMPXA(  4), 

*  C0NGRPQ500) 

THIS  BLOCK  CONTAINS  POD  OPERATIONS  STATISTICS  ACCUMULATORS. 

SCCB(J,K)=  SINGLE  CONSIGNEE  CARGO  VOLUME  STUFFED  FOR  POD  (J), 

CONSIGNEE  GROUP  (K).   (CUBIC  FEET) 
SCrPT(J,K)=  CONTAINER  VOLUME  OF  STUFFED  SINGLE  CONSIGNEE  VANS  FOP 

POD  (J),  CONSIGNEE  GROUP  (K).   (CUBIC  FEET) 
TWT(J,K)=  TOTAL  CARGO  WEIGHT  STUFFED  INTO  BOTH  SINGLE  CONSIGNEE 

AND  MIXED  VANS  FOR  POD  (J),  CONSIGNEE  GROUP  (K).   (CUBIC  FEET) 
TWTT(JtK)=  TOTAL  MAXIMUM  WEIGHT  CAPACITY  OF  VANS  STUFFED  WITH 

CARGO  FOR  POD  (J),  CONSIGNEE  GROUP  (K).  (POUNDS) 

FOR  MIXED  VANS,  CAPACITY  WAS  ALLOCATED  ACCORDING  TO  T HE 

VOLUME  OF  CARGO   INSIDE  THE  VAN  FOP  EACH  CONSIGNEE  GROUP. 
MSHP(J,K)=  TQTAL  NUM3ER  OF  SHIPMENTS  STUFFED  FOR  POD  (J),  CONSIGNEE 

GPOUP  (K). 
MNAGE(J,K)=  MINIMUM  SHIPMENT  AGE  AT  STUFF  FOR  POD(J),  CONSIGNEE 

GROUP  (K). 
MXAGE(J,K)=  MAXIMUM  SHIPMENT  AGE  AT  STUFF  FOR  POD(J),  CONSIGNEE 

GROUP  (K). 
TAGE(J,K)=  TOTAL  AGE  AT  STUFF  OF  SHIPMENTS  FOR  POD  (J),  CONSIGMEE 

C  R  n  U  P  (K) 
TSAGE(J,K)=  TOTAL  SQUARED  AGE  A^  STUFF  OF  SHIPMENTS  FOR  POD  (J), 

CONSIGNE  GROUP  ( K ) . 
MXCB(J,K)=  CARGO  VOLUME  STUFFED  IN  MIXED  CONSIGNEE  VANS  FOR  POD  (J) 

CONSIGNEE  GROUP  (K).  (CUBIC  FEET) 
MXCBT(J,K)=  TOTAL  MIXED  VAN  CAPACITY  OF  CONTAINERS  STUFFED  WITH 

CAOGO  FOR  POD  (J),  CONSIGNEE  GROUP  (K).   (CUBIC  FEET) 

FDR  MIXED  VANS,  CAPACITY  WAS  ALLOCATED  ACCORDING  TO  THE 

VOLUME  OF  CARGO   INSIDE  THE  VAN  FOR  EACH  CONSIGNEE  GROUP. 

THE  FOLLOWING  VARIABLES  ACCUMULATE  DATA  FOR  SHIPMENTS  STUFFED  INTO 
EACH  CONTAINER;  WHEN  THE  CONTAINER  IS  CLOSED  OUT,  THESE  DATA  APE 
ADDED  TO  THE  ABOVE  VARIABLES.   THE  REASON  FOR  THIS  IS  THAT  UNTIL 
THE  VAN  IS  CLOSED  OUT,  IT  IS  NOT  KNOWN  WHETHER   THE  VAN  REMAINS 
SINGLE  CONSIGNEE. 

TEMPNS(K)=  NUMBER  OF  STUFFED  SHIPMENTS,  CONSIGNEE  GROUP  (K). 
TEMPCB(K)=  TOTAL  STUFFED  CARGO  VOLUME,  CONSIGNEE  GROUP  (K).  (CU  FT) 
TEMPWT(K)=  TOTAL  STUFFED  CARGO  WEIGHT,  CONSIGNEE  GROUP  (K).  (LBS) 
TEMPAG(K)=  TOTAL  STUFFED  SHIPMENT  AGE,  CONSIGNEE  GROUP  (K). 
TEMPAS(K)=  TOTAL  SQUARED  SHIPMENT  AGE,  CONSIGNEE  GROUP  (K). 
TEMPMA(K)=  MINIMUM  SHIPMENT  AGE,  CONSIGNEE  GROUP  (K). 
TEMPXA(K)=  MAXIMUM  SHIPMENT  AGE,  CONSIGNEE  GROUP  (K). 
CONGRP(I)=  THE  CONSIGNEE  GRHUP  WHICH  CONSIGNEE  (I)  FALLS  IN. 

INTEGER*4  OLVAD, QDI FF , ONVAP 

REAL*4  XTBVS,XTBVSS 

COMMON/OPSTTl/  QDIFF , QNVAP ( 30 ) , QL VAD( 30 ) , XTBVS ( 30 ) , XTBVSS  (  30) 
THIS  BLOCK  CONTAINS  POD  OPERATIONS  STATISTICS  ACCUMULATORS. 

QNVAP(  J)=NUMBER  OF  VESSEL  ARP I VAL/ DEPARTURES  (LIFTS)  FOR  POD  (J). 

OLVAD(J)=  DATE  OF  LAST  LIFT,  POD  (J). 

XTBVS( J)=TOTAL  TIME  BETWEEEN  LIFTS,  POD  (J). 

XTBVSS(J)=  TOTAL  SQUARED  TIME  BETWEEN  LIFTS.  POD  (J). 

QDIFF=  TEMPORARY  STORAGE. 
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REAL*8  QQCVS.QQCVM 

TNTEGER*4  QQTTBL  ,  0TSTBL  , QQTC A , QOTSC A  ,  „  „^. 

THll  BLD88Nfe&a?l!81f?88Lfe^SjL??&NSSTATISTICS  ACCUMULATORS. 

OQCVM(J,I)=  TPTAL  CARGO  VOLUME  STUFFED  INTO  MIXED  CONSIGNEE  VANS 
gyLV^iJ^J          CONTAINER  TYPE  (I).   (CUBIC  FEET) 

OQTTBLU,IJ=  TOTAL   TIME  BETWEEN  LIFTS  FOR  CQNTAINEP  TYPE  (I), 
POD  (J). 

QTSTBL(J,I)=  TOTAL  SQUARED  TIME  BETWEEN  LIFTS  FOR  CONTAINER  TYPE  (I) 

POD  (J). 
OQTCA(J)=  TOTAL  CONTAINER  AGE,  POD  (J). 
OQT3CA(J)=  TOTAL  SQUARED  CONTAINER  AGE,  POD  (J). 
QQTCL( J)=TQTAL  CONTAINEPS  LIFTED,  POD  (J). 
QQSS(J,I)=  NUMBER  OF  SHIPMENTS  STUFFED  INTO  SINGLE  CONSIGNEE  VANS, 

POD  (J),  CONTAINER  TYPE  (I). 
OQSM(J,I)=  NUMBER  OF  SHIPMENTS  STUFFED  IN  MIXED  VANS,  POD(J), 

CONTAINER  TYPE  ( I ) . 
QQN3(J,I)=  NUMBER  OF  STUFFED  SINGLE  CONSIGNEE  VANS,  POD  (J), 

CONTAINER  TYPE  ( I ) . 
CQMM(J,I)=  NUMBER  OF  MIXED  VANS.  POD  (J),  CONTAINER  TYPE  (I). 
QQNL(J,I)=  NUMBER  OF  LIFTS,  POD(J),  CONTAINER  TYPE  (I). 
QQDLL(J,I)=  DATE  OF  LAST  LIFT,  POD  (J),  CONTAINER  TYPE  (I). 
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STACK     FIELDS 


CONTAINER    VESSEL    SECTION    STACK 

0  PCINTEP  TH  NEXT  RECORD. 

1  ACTUAL  NUMBER  OF  CONTAINERS  BOOKED  FOR  THE  CONTAINER  FREIGHT 

DEPOT  (CFD),  BUT  NOT  STUFFED  AS  YET. 

2  ESTIMATED  DATE  OF  ARRIVAL. 

3  NUMBER  OF  CONTAINERS  RESERVED  DIRECTLY  FOR  THE  STUFFING  STATION. 

THESE  CONTAINERS,  REFEPED  TO  AS  THE  BASIC  RESERVE,  ARE  DIPECTLY 
AVAILABLE  FOP  BOOKING.   THEIR  AVAILABILITY  IS  RESTRICTED   ONLY 
BY  THE  CRELT  PARAMETER. 

4  PCD  (SEQUENCE  NUMBER). 

5  TYPE  OF  CONTAINERS  (SEQUENCE  NUMBER). 

6  NUMBER  OF  IMMEDIATELY  FOLLOWING  RECORDS  WHICH  CONCERN  SAME  VESSEL 

7  MAXIMUM  NUMBER  OF  CONTAINERS  AVAILABLE  BEYOND  THE  BASIC  RESERVE. 

THESE  CONTAINERS  ARE  REFERED  TO  AS  THE  CONTAINERS  (SPACE) 
BEYOND  THE  BASIC  RESERVE,  AND  APE  BOOKED  THROUGH  THE  RANDOM 
SCREENING  ALGORITHM  OF  THE  BOOKING  ROUTINE. 

8  VOYAGE  NUMBER. 

9  ACTUAL  NUMBER  OF  CONTAINERS  BOOKED  FOR  CFD  WHICH  ARE  STUFFED  AND 

WILL  BE  AVTALABLE  FOR  LIFT. 

STUFFED  CONTAINERS: 

0  POINTER  TP  NEXT  RECORD. 

1  CONTAINER  NUMBER  (SEQUENCE  NUMBER). 

2  TENTATIVE  VOYAGE  NUMBER. 

3  ACTUAL  CARGO  WEIGHT  (HUNDREDWEIGHT). 

4  ACTUAL  CARGO  CUBE  (CUBIC  FEET). 

5  DATE  STUFFED. 

6  ARRIVAL  DATE  AT  YARD. 

7  TGTAL  AGE  AT  STUFF  OF  DATED  SHIPMENT  SEGMENTS. 

8  TOTAL  NUMBER  OF  SHIPMENT  SEGMENTS. 

9  TOTAL  NUMBER  OF  DATED  SHIPMENT  SEGMENTS. 

CONTAINERIZABLE  SHIPMENTS  SEGMENTS  STACK: 

0  POINTER  TO  NEXT  RECORD. 

1  SHIPMENT  NUMBER  (SEQUENCE  NUMBER). 

(NEGATIVE  IF  NOT  THE  LAST  SEGMENT  OF  A  SHIPMENT) 

2  CUBE  (CUBIC  FEET). 

3  WEIGHT  (POUNDS). 

4  SHIPMENT  TYPE 

5  DATE  OF  ARRIVAL  AT  TERMINAL. 

6  'FNTATIVE  POD  (SEQUENCE  NUMBER). 
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SIMULATION  PROGRAM  DECK 


(PROGRAM  IS  LOADED  ON  TO  A  DISK  FILE) 

//BOXS101N    JOB     (0826,0232FP,55HJ) , • J.P.HYNES* ,TIME=1 
//STEP2  EXEC    PGM=IEHPROGM 

//SYSPRINT    OD    SYSOUT  =  A,SPACE=(TRK,( 1,1)  ,RLSE) 
//DD1  DD    UNIT=2314,V0L=SER=DUFFY,DISP=SHP 

//SYSIN  DD    * 

SCRATCH    DSNAME=F0826.CSSM,VOL= 23 14= DUFFY, PURGE 

/*     EXEC    FCRTHCL,COND=EVEN 
//FORT. SYSIN    DD    * 


MAIN  PROGRAM  DECK 
C 

C  CONTAINER    STUFFING    SIMULATION    MODEL 

C  VERSION    1 

C  APRIL    1974 

C 

C  DEVELOPED    AND   WRITTEN    BY: 

C  PROFESSOR    JAMES    P.    HYNES 

C  DEPARTMENT    OF   OPERATIONS    RESEARCH    AND    ADMINISTRATIVE    SCIENCES 

C  U.    S.    NAVAL    POSTGRADUATE    SCHOOL 

C  MONTEREY,    CALIFORNIA    93940 

C 
C 
C 

C*INPUT    FILES    ARE    READ    IN    THE    FOLLOWING    ORDER: 
C 

C    READ    TRANSACTION    REPORT    UNIT    FILE 
C    READ    PUN    PARAMETERS    AND    LABEL. 
C    READ   ORDERED    CONTAINER    DESCRIPTION    FILE. 

C    READ    CONTAINER    BREAKEVEN,     UTILIZATION,    AND    BOOKING    PARM/STAT    FILE 
C    READ    CONTAINER    FORECAST    STATISTICS/PARAMETERS    FILE 
C    READ    CONTAINER    BOOKING    HORIZON    AND    SUCCESS    RATE    FILE 
C    READ    ORDERED    STUFFING    LISTS    FILE. 
C    READ    CONSIGNEE    GROUP    DATA    FILE. 
C 
C 
C 

IMPLICIT    INTEGER*2    (A-Z) 

REAL*8       SCCB,SCCBT,MXCB,MXCBT,TAGE,TSAGE,TWT,TWTT 

INTEGER*4  NSHP.TEMPCB, TEMPWT ,TEMPNS ,TEMPMA, TEMPXA, TEMPAG, 

*  TEMPAS,MNAGE,MXAGE 

COMMON    /OPSTAT/    SCCB(     30,    4),SCCBT(     30,    4),MXCB(    30,    4), 

*  MXCBT(     30,    4),TAGE(     30,    4),TSAGE(    30,    4),TWT(    30,    4), 

*  TWTT(     30,    4), 

*  TEMPAS(    4).NSHP(     30,    4),TEMPCB(    4),TEMPWT(    4),TEMPAG(    4). 

*  MNAGE(    30,    4),MXAGE(    30,     4),TEMPNS(     4),TEMPMA(     4),TEMPXA<     4), 

*  C0NGRP(1500) 

REAL*4    AGE,STDEV,SNGL,SCC,MXC,SCCT,MXCT,WT,WTT,TC,TCT 

REAL*8    DBLE,DFL0AT,DXXX,QTSAG8 

REAL*4       QTAGE,QSCC,     QMXC,    QSCCT,     QMXCT , QWT,QWTT 

INTEGER*4    QLVAD,QDIFF,QNVAP 

REAL*4    XTBVS,XTBVSS 

C0MM0N/0PSTT1/    QDIFF , QNVAP( 30 ) ,0LVAD(30) ,XTBVS(30) ,XTBVSS(30) 

INTEGER*4    QQTTBL , QTSTBL, QQTC A , QOTSCA 

PEAL*8    QQCVS.QQCVM 

COMMON /0PSTT2/0QCVS<  30.20) ,QQCVM< 30,20) .QQTTBL (30 ,20) , 

1  QTSTBLt 30,20) ,QQTCAT30) ,QQTSCA(30) ,QQTCL(30) , 

2  QQSS( 30,20) , QQSM( 30 ,20 ) , QQNS ( 30,20) ,QQNM(30,20) , 

3  QQNL(30,20) , QQDLL ( 30, 20 ) 
INTEGER**    QNSHP , QQNT, QQST 

REAL*4    XCTSC,XCTCU,XCTSCU,XCTMXU,XCTWU 

REAL*4    XQNVAP,XTIME,XAVS,XAVV,XAVW 

REAL*4    XVU1,XVU2, XVU3 , XTCi, XTC2, XTC3, XPCA, XPSDCA, XC VC 

W         ^>  ^>  ^>  ^>  *b  ^)  ^  ^  4)  4}  ^>  ^)^j^>^>^ 

INTEGEP*4    MCMW.BP 

C0MM0N/CNTBLK/MC(20) , MW ( 20 ) , BP ( 20 ,30) , S AF( 20, 30) ,NCNT, NPOD , NCCN , 

1    NCNTPG,KCNTRG(20) 
REAL*4    CFCUB,CFAF,CFUT,CUESP,CFESP,XADJ 
INTEGER*4    TOTCSC , TOTCSP,CCCUB , CVPB 
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COMMON/STATBK/    CFCUBC30     ),CCCU8(30    ),CFUT(20,30    )  ,CUESP  ( 20,30    ), 

1  CFESP(30    ),CVPB<20,30    ),XADJ<200    ),CFAF(30    ) , TOTCSC ( 1500     ), 

2  TOTCSP(30    ) 

CCMMON/CSBLK/  CSF(1500)  ,CSL(1500) ,SLP( 10,30) , NSLVL 

C0MM0N/SC3LK/  SCF(20  ,30  ),SCL(20  ,30  ),CLS0PT 

CPMMON/CVCBLK/  CVF,CVL 

CCMMON/TMPTCN/  TIME,  PTCN,  PTCNC 

COMMON/RCSTBK/  NXTRP , RELRP,NXTPP, RECS I Z , MXUREC,  REC  (  80000) 

REAL*4  CRNG,XCMXLB 

INTEGER*^  SEED 

COMMON/PROBBK/  SEED,CRNG(30  ) , XCMXLBC 20 ,30  ),CSTRT(30  ), 
1     CDSTYP(30  ),CRELT(30  ) 

COMMON/COELBL/  COELCT,  COELTS,  CDELTC,  CSATT,  CTDEL ,MXADVS, MASDVA 

COMMON/CTPLBK/  CNTPOL ( 20, 30 ) 

INTEGER*4  UNIT 

CGMMON/IOUNT/  UNIT(30) 

REAL*4  XT1,XT2,FLCAT,XFACT 

INTEGER*4  RUN,KEY,UNT,TEMP1 

DIMENSION  KEY(2) , RUN ( 2 ) 

INTEGER*4  AST4 

INTEGER*4    LSTRECLOC 

INTEGER*4   TOTSHP, TOTCNR 

DATA    AST4/4H****/ 

DIMENSION  Z1(16),Z2(16) 
C      LSTREC=  LARGEST  BEGINNING  ADDRESS  OF  LAST  RECORD  IN  POOL; 
C  =  (DIMENSION  OF  PEO-P  ECSI  Z  +  l 

RECSIZ=10 

MXUREC=0 

LSTREC=  80000-RECSIZ+l 
C  READ  LOGICAL  UNIT  NUMBER  FILE. 

DO   1   1=1,30 

1  UNIT(I)=0 
READ(5,2)  TEMPI 

2  FGRMAT(A4) 

4  READ(5,3)  TEMPI, I, J 

3  FORMAT( A4,I2,1X?I2) 
IF(TEMP1.EQ.AST4)  GO  TO  10 
UN  I T  (  I  )  =  J 

Gn  TO  4 
10  CONTINUE 
C  READ  RUN  PARAMETERS  AND  LABEL. 

C      IF  (CLSOPT)   EQUALS  1,  THEN  THE  ON-LINE  CONTAINER  LIFT  REPORT 
C  WILL  NOT  BE  PRINTED. 

C      IF  (RSLTOP)   EQUALS  1,  THEN  THE  POD  SUMMARY  DATA  WILL  BE 
C  PUNCHED  ON  UNIT  7. 

READ (5, 801)  NPOD,NCON,NCNT.NCNTRG,SEED,TIMLIM,CLSOPT, 
1    CDELCT,CDELTS,CDELTC,MXADVS, RSLTOP, RUN 
8  01  F0RMAT(I3TI4,I2,I2,I8,I5,I1,4I2,I1,38X,2A4) 
SEED=SEED*10  +  1 
WRITE(6,802)  RUN 
802  F0RMAT(*1RUN  KEY=',2A4) 
C  READ  ORDERED  CONTAINER  DESCRIPTION  FILE. 
READ(5,811)   UNT,KEY 
811  F0RMAT(65X, 12,    5X,2A4) 

WRITE(6,814)  KEY 
814  FORMATC  OCD  FILE  KEY=,,2A4) 

READ(UNT,813)(KCNTRG(I ) ,MC( I ) , MW ( I ) ,I=1,NCNT) 
813  F0RMAT(4( 12, 16,18)) 
C  READ  CONTAINER  BREAKEVEN,  UTILIZATION,  AND  BOOKING  PARM/STAT  FILE 
READ(5,821)  UNT,KEY 

821  FCRMAT(65X,I2,5X,2A4) 
WRITE(6,822)  KEY 

822  FORMAT (•  OCBUBPS  FILE  KEY=',2A4) 

READ(UNT,823)( (BP(I , J),CFUT( I, J) ,CUESP(I,J) , SAF ( I , J ) , XCMXLB ( I, J), 
*    I=1,NCNT) ,J=1,NP0D) 

823  F0RMAT(3(I8,2F4.2,I4,F4.2) ) 

C  READ  CONTAINER  FORECAST  STATIST ICS/ PARAMETERS  FILE 
READ(5,821)  UNT,KEY 
WPITE(6,832)  KEY 

832  FORMAT(«  OCFSP   FILE  KEY=',2A4) 

READ(UNT,8  33)  (CFCUBCI ),CFESP(I ) , 
1        CFAF( I),I=1,NP0D) 

833  FORMAT!     4( F10. 0, 2F4. 2 ) ) 

C  READ  CONTAINER  BOOKING  HORIZON  AND  SUCCESS  PATE  FILE 
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READ(5,821)     UMT,KEY 
W3ITE<6,842)     KEY 

842  FORMAT (•     OCBHS"    FILE    KEY=',2A4) 

PEADCUNT.843)     ( CSTRT  ( I  )  ,CRNG (  I  ) , 
1       CDSTYP(I) ,CRELT(I) ,I=i,NPOD) 

843  F0RMAT-(6(I4,F4. 0,212)  ) 
C    READ    OSL    FILE. 

READ<5,851)     UNT,NSLVL,    NSLA,KEY 

851  F0RMAT(65X, 12,12, 13, 2A4) 
WRITEC6.852)     KEY 

852  FORMATP     OSL    FILE    KEY=«,2A4) 
JF(NSLVL.GT.O)    GO    TO    856 

858  WRITE(6,857) 

857  FORMATC  STUFFING  LIST  FILE  IS  CUT  OF  ALIGNMENT') 

STOP 
856  PNTR=1 

READ  (UNT,854)  NDATA , ( ( SLP( L , I ) ,L=1 , NSL VL ) , I = 1 ,NPOD ) 
854  F0RMATU2I6) 

IF(NDATA.LT. 1)  GO  TO  858 

B=PNTR 

E=PNTR+NDATA-1 

READ(UNT,853)  (  REC( I ) ,  I=B, E ) 

853  F0RMAT(6( 15, 14.13)) 
PNTR=PNTR  +  NDATA 
READ(UNT,859)  ( XADJ ( I  )  ,  1  =  1 , NSLA ) 

859  F0RMAT(18F4.2) 
C  33333333333 

C   READ  CONSIGNEE  GROUP  DATA. 
READ(5,821)  UNT,KEY 
WRITEC6t 8116)  KEY 
8116  FORMAT! •  CONSIGNEE  GROUP  DATA  FILE  KEY=«,2A4) 
DO  8111  I=1,NC0N 

8111  CONGRPd  )=0 

8115  READ(UNT,8112)  ( Z 1 ( I ) , Z2 ( I ) , I = 1 , 16) 

8112  F0RMAT(16(I4,I1) ) 
DO  8113  1=1,16 
J=Z1(I) 

IF(J.LT.O)  GO  TO  8114 
IF(J.EQ.O)  GO  TO  3113 
CuiMG«P(  J)=Z2(I) 

8113  CONTINUE 
GO  TO  8115 

8114  CONTINUE^ 
C  333  3333353  3333 

C      INITIALIZE  POD  AND  CONSIGNEE  CUMULATIONS  AND  BOOKINGS. 
DO  310  J=1,NC0N 
TOTCSC( J)=0 

310  CONTINUE 

DO   311  J^=1,NP0D 
CCCUB( J)=0 
T0TCSP(J)=0 

311  CONTINUE 

C      SET  POINTERS. 

DO  411  J=1,NP0D 
DO  411  I=1,NCNT 
SCF( I, J)=0 


SCLd,  J)=0 
CNTPOL(I,J)=0 


CVPBd,  J)=0 

411  CONTINUE 

DO  412  I=1,NC0N 
CSF( I)=0 
CSU I)=0 

412  CONTINUE 
CVF  =  0 

SET~UP  RECORD  POOL   (GIVEN  PNTR  POINTS  TO  BEGINNING  OF  POOL) 

PNTR=(PNTR-l)/RECSIZ+l 

NXTPP=PNTR 

GO  TO  512 

511  LOC=PNTR*RECSIZ 
REC(LOC)=NPNTR 
PNTR=NPNTR 

512  NPNTR=PNTR+1 
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IF(NPNTR*RECSIZ.LE.LSTPEC)    GO    TO    511 

LOC=PNTR*RECSIZ 

REC(LOC)=0 
C  SET    DELAY    PARAMETERS. 

CSATT=CDELTS+CDELTC 

CTDEL=CDELTS+COELTC+CCELCT 

MASDVA    =    MXADVS    +    CDELTC    +    COELTS 
C  *********** 

c  *********** 

c  *********** 

TIME=0 

TOTSHP=0 

TOTCNR=0 

^o  ^O  ^D  ^0  ^B  ^J  ^  ^b  ^D  ^9  4i  ^B  ^w  ^B  ^0  ^0 

C  SETUP    OPERATING    STATISTICS    VARIABLES. 

DO    1211    J  =  l,4 
TEMPAG( J)=0 
TEMPCBC J)=0 
TEMPWT( J)=0 
TEMPAS( J)=0 
TEMPMA( J)=10000 
TEMPXAl J)=-10000 
TEMPNS( J)=0 
DO    1211     I=1,NP0D 
MNAGEC I, J)=10000 
MXAGE( I, Jl=-10000 
SCCB( I, J)=0.0 
SCCBTU,  J)=0.0 
MXCBdf  J)=0.0 
MXCBTCIt J)=0.0 
TAGE( I, J)*0.0 
TSAGE( I, J)=0.0 
TWT( I, J)=0.0 
TWTTU,  J)=0.0 
NSHPU,  J)=0 

1211  CONTINUE 

DO    1212    I=1,NP0D 
QNVAP( I )=-l 
QQTCA( I )=0 
QQTSCAU  )=0 
QQTCL( I )=0 
DO    1212    J=1,NCNT 
QQNL(I,J)    =    -1 
QQNM( It J)  =    0 
QQNSCI ,  J  j=    0 
QQSM(I,J)=0 
QQSS(I, J)=0 
QTSTBL(I,J)=0 
QQTTBL(I,J)=0 
QQCVMU,  J)=0.0 
QOCVS( I, J)=0.0 

1212  CONTINUE 

Cop  <V  CO  &<pQpC0CC<»Cp<»<B<&<V<VCa 
^  ^  ^  ^  "O  t)  ^  ^  "y  ^  ^  ^  ^  ^>  fc  ^& 

WRITE(6,614)    TIME 
614    FCRMAT<//,»     CONTAINER    STUFFING    SIMULATION    MODEL*, 

*  /,     •       START    TIME=I,I4,'     PLUS    ONE.M 
C 

K.    *r>   hp  HP  HP  HP  HP  ^P  HP  TP  HP 

IF(CLSOPT.LT.l)    WRITE(6,8510) 

8510  FORMAT(///,»    ON-LINE    CONTAINER    LIFT    REPORT',//) 
IF(CLSOPT.LT.l)     WRITE(6,8511) 

8511  FOPMAT(  ■       TIME       VOYAGE       POD      CONTAINER      TOTAL         SC • t 

1  ■       UTILIZATION         OVER-BOOKED         UNBOOKED      UNBOOKED 

2, 'CONTAINER  CARGO    AGEN/t 

*  •  • 

3  ,  •       CUBE         WGHT         CANCELATIONS      RESERVE  OTHER 

4,'       AGE  AT    STUFF1,///) 

C********** 

611    TIME=TIME+1 
TEMPl=TIME/7 
TEMP1=TIME-TEMP1*7 
IF(TEMPl.NE.O)    GO    TO    612 
DO    711    I=1,NP0D 
XT1=FL0AT(CCCUB(I) )/7.0 
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CCCUB( I )=0 

CFCUB(lV=XT2  +  CFESP(I)*<XT1-XT2) 
711  CONTINUE 
612  CONTINUE 

PTCN=0 

PTCNC=0 

CALL  CD 

CALL  CLASS 

CALL  CST 

CALL  CVIN 

CALL  CL 

CALL  CBOOK 

TOTCNR=TOTCNR+PTCNC 

TOTSHP=TOTSHP+PTCN     Trt 

IF(TIME.LT.TIMLIM)  GO  TO  611 

WRITE (6, 615) TIME, TOTSHP;TOTCNR 
615  FORMAT(/,'  ENDING  TIME^SI^,'. 

*  •   TOTAL  CONTAINERS  OUT=%I7, 

*  ////) 
%%%%%%%%%%%%%%%% 

DO    9110    I=1,NP0D 

0TAGE=0.0 

0TSAG8=0.0 

QSCC=0.0 

QMXC=0.0 

QSCCT=0.0 

QMXCT^O.O 

OWT=0.0 

QWTT=0.0 

IF<UI-l)/3)*3    -(I-l).EQ.O)    WRITE<6,9125) 
FORMAT  (  ■  1M. 

OPERATIONAL    STATISTICS    FOR    POD    «,I4,//) 


TOTAL       SEGMENTS    IN*M7, 


9125 


WRITE(6,9111) 


9111 
9112 


FORMAT ( 
WP I T  E  (  6 , 
FCRMAT( 


/// 

9112) 


SHIPMENTS 
PCT    CUBE 


MIN 


/t 


TOTAL 
WGHT« 

GR0UP  cr  „TT, 

CUBE  SC  UTIL 

*  UTIL1//) 

DO    9113    J=li4 
AGE=0 
STDEV=0 
TC  =  0 
PCTSC=0 
PCTCU=0 
PCTSCU=0 
PCTMXU=0 
WT  =  0 

If{nSHP(I,J).EQ.O)    GO    TO    9113 
nxxx  =       (TSAGEII»J))         -((TAGElI 
DXXX=    DXXX/DFLOAT(NSHP(I,J>> 
STDEV=    SNGL(DXXX) 

SiIM?i!i?f?in/FLO»T«NSHPU,JII 

SCC=SNGL(SCCB(I,J)J 
MXC=$NGL(MXCB(I,J)) 
SCCT  =  SNGL(SCCBT_  I , J 
MXCT=SNGL(MXCBT(I,J) ) 
WT=SNGL(TWT(I,J) )  % 
WTT=SNGL(TWTT(I, J) ) 

QTSAG8=QTSAG8+TSAGE(ItJ) 

QTAGE=SNGL(TAGE( I , J) )+OTAGE 

QNSH»>  =  QNSHP-«-NSHP  (  I » J  I 

QSCC=QSCC+SCC 

QMXC=QMXC+MXC  m 

QSCCT=QSCCT+SCCT 

QMXCT=QMXCT+MXCT 

QWT=QWT+WT 

QWTT=QWTT+WTT 


SC 


MEAN 
MIX 


MAX 


AGE    AGE     AGE 
UTIL    UTIL 


STD 
TOTAL 

DEV 
WEIGHT 


J)**2)/DFLCAT(NSHP(  I, J) )) 
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TC=SCC+MXC 
TCT=SCCT+MXCT 

PCTSC=IFIX(     100.*SCC/TC+.4) 
PCTCU=IFIX(     100.*TC/TCT) 
PCTSCU=0 

IF(SCCT.GT.O.O)PCTSCU=IFIX(     100. *SCC/SCCT+ .4 ) 
PCTMXU=0 

IF(MXCT       .GT.0.0)PCTMXU=IFIX(     100 .*MXC/MXCT+ .4) 
PCTWU=IFIX(     100.*WT/WTT) 
9113    WRITE (6, 9115)    J,NSHP( I  ,  J ) , MNAGE ( I , J ) , AGE, MXAGE( I , J ) , STDEV, TC , 

*  PCTSC,PCTCU,PCTSCU,PCTMXU,WT,PCTWU 

9115  F0PMAT(  7X,I2,3X, 19, 3X , I  3, F8 . 2  ,  !  5  ,  F7.3,F13.0,    15,17,17,18, 

*  F13.0,I7) 
IF(QNSHP.LE.O)  GO  TO  9110 
TC=QSCC+QMXC 
TCT=QSCCT+QMXCT 

XC"!"SC  =  QSCC/TC 

XCTCU=TC/TCT 

XCTSCU=0.0 

IF(QSCCT.GT.O.O)     XCTSCU=QSCC/QSCCT 

XCTMXU=0.0 

IF(QMXCT.GT.O.O)  XCTMXU=QMXC/QMXCT 

XCTWU=QWT/QWTT 

AGE =0T AGE/FLOAT ( QNSHP ) 

DXXX=QTSAG8-( ( D3L E(QT AGE) **2) /DFLOATC QNSHP) ) 

OXXX=DXXX/DFLOAT( QNSHP) 

STDEV=SNGL(DXXX) 

STDEV=SORT(STDEV) 

WRITE (6, 9116)  QNSHP?AGE,STDEV,TC,XCTSC,XCTCU,XCTSCU,XCTMXU, 

*  QWT,XCTWU 

9116  FORMAT (•    TOTALS « , 3X , 19 ,  6X, F 8. 2  ,5X,F7 . 3, F13 . 0, 3F7 .4, F8 .4, Fl 1. 0, 
jjc        F  9  •  4  ) 

IF(RSLTOP*.EQ.l)  WRITE  (7,9117)  I ,  QNSHP,  AGE  ,  STDEV,  TC  ,  XCTSC,  XCTCU, 

*  XCTSCU, XCTMXU,QWT,XCTWU,RUN 

9117  FORMAT  (  I2,'l'  ♦  I  8,  2F5.  2,  F10.  0,  4F6.  4,  Fll .  0  ,  F6.  4  ,  2A4  ) 
XTIME=TIME 

XAVS=FLOAT(QNSHP)/XTIME 
XAVV=TC/XTIME 
XAVW=QWT/XTIME 
WRITE(6,9119)    XAVS,XAVV,XAVW 

9119  FORMAT(        •    DAILY    AVE . • , F10.3, 26X, F13.3, 26X, F14. 3 ) 
XQNVAP  =  FLOAT  (QNVAPd  )  ) 
AGE=XTBVS(I)/XQNVAP 

STDEV=XTBVSS(I)    -    (  (  XTBVSU  )  **2) /XQNVAP  ) 

STDEV=STDEV/XQNVAP 

STDEV=SQRT(STDEV) 

XQNVAP=XQNVAP+1.0 

XPCA=QQTCL( I) 

XPSDCA  =  FLOAT(QQTSCA( I ) )-  ( FLO AT( QQTCA( I  )  )**2)/XPCA 

XPSDCA=  XPSDCA/XPCA 

XPCA=FLOAT(QQTCA( I ) ) /XPCA 

WRITE(6t 91 18) XQNVAP, AGEt STDEV, XPCA, XPSDC A 

9118  FORMATP  NUMBER  OF  L I FT$=' , F5 . 0, •   AVERAGE  DAYS  BETWEEN  LIFTS*', 

*  F6.2,'    STD.DEV.=',F6.2, '   AVE  CNTNR  AGE= • ,F6 . 2, 

*  •   STD.DEV.=',  F6.2) 

IF(PSLTOP.EQ.l)  WRITE(7,9120)  I ,  XTI  ME  ,  XAVS  ,X  AW,  XAVW  ,XQNVAP, 

*  AGE, STDEV, XPCA, XPSDCA, RUN 

9120  FORMAT (I  2, '2' ,F5.0,F6.1,F7.1,F8.1 ,F5.0, 4F6.2 , 14X,2A4) 
WRITE(6,9711) 

9711  FORMAT(/,      •  VAN  SINGLE  CONSIGNEE  VANS  ■  , 

1  ■  MIXED  CONSIGNEE  VANS  '  , 

2  *  ALL  VANS' * 

3  /,      '  TYPE  NO.  SHIPMENTS  V.UTL.  CARGO  VOLUME     ', 

4  «  NO.  SHIPMENTS  V.UTL.  CARGO  VOLUME     ', 

5  '  NO.  SHIPMENTS  V.UTL.  CARGO  VOLUME     ', 

6  •   ADBL  STDEV  ) 
DO  9712  K=1,NCNT 

XCVC=MC(K) 

IF<QQNL< I,K).LT.l)  GO  TO  9712 

XVU1=QQNS(I,K) 

XVU3=XVU1 

XTC1=SNGL(QQCVS( I,K) ) 

IF(XVU1.GT.0)XVU1=  XTC1/(XCVC*XVU1) 
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XVU2=QQNM(If KJ 

XVU3=XVU3+XVU2 

XTC2=    SNGL(QQCVM( I,K) ) 

IF<XVU2.GT.0)XVU2=    XTC2/ ( XCVC*XVU2> 

XTC3=    XTC1    +    XTC2 

XVU3=    XTC3/(XCVC*XVU3) 

AGE=QQTTBL(I ,K) 

STDEV=QFLOATlQTSTBL(ItK))    -    ( AGE**2 ) /XCVC 
STDEV=    STDEV/XCVC 
STDEV=    SQRT(STDEV) 
AGE=AGE/XCVC  ,,    u% 

QQNT=QQNS( I,K)+    QQNM(I,K) 

S^{i?^l^3»,K,§§^{!;K!,QQSSn.K,,XVUl,XTCl,  MNH(I,KI, 

1    OQSM    I,K),XVU2,XTC2.  QONT ,OQST, XVU3,XTC3,  &GE.STDEV 

9713  FORMATU5,    3(14,19,     F8.4.F13.0,       4X I ,F6 . 2, F6 . 21 

^(I?ir7?97¥l51l,^Q^S?IlK.,QQSS(I,K),XVUl,XTCl,RUN 

9714  %®&\S    I^W^O^K^M?!    1  \M    ,XTC2,RUN 

C171K    FnRMAT(T2.,4,«I2«l4»I8»F6.4tF10.0t39X»2A4) 

9715  WRITE<7 9716*'    TK    QQNT;QQST,XVU3,XTC3,AGE,STDEV,RUN 

9716  FnRMAT(I2t»5» ,l2t K»  I  8  ,  F6.4,  F  10.  0  »  2F6 .2 , 27X , 2A4 ) 
9712    CONTINUE 

9110    CONTINUE 
C    %%%%%%%%%%%%%%%% 
CALL    STATE 
STOP 
END 
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CONTAINER   STUFFING  ROUTINE  DECK 

SUBROUTINE    CST 

IMPLICIT    INTEGER*2    (A-Z) 

C999779 7779 779777 

RFAL*8   SCCB,SCCBT,MXCB,MXCBT,TAGE,TSAGE,TWT,TWTT 

INTEGER*^       NSHP,TEMPCB,TEMPWT,TEMPNS,TEMPMA,TEMPXA,TEMPAG, 

*  TEMPAS,MNAGE,MXAGE 

COMMON    /OPSTAT/    SCCB(     30,    4),SCCBT(     30,    4),*XCB(     30,    4), 

*  MXCBT(     30,    4),TAGE(     30,    4),TSAGE(     30,    4),TWT(     30,    4), 

*  TWTT(    30,    4), 

*  TEMPAS(    4),NSHP(     30,    4),TEMPCB(     4),TEMPWT(    4),TEMPAG(    4), 

*  MNAGEC    30,    4),MXAGE(    30,     4),TEMPNS(     4),TEMPMA(    4),TEMPXA(     4), 

*  C0NGPP(1500) 
REAL*4    AACUB 
DIMENSION    AACUB(4) 
REAL*8    DBLE.DFLOA+ 
REAL*8    QQCVS.QQCVM 

INTEGER*4    QQTTBL , QTST3L.QQTC A, QQTSCA, QQNT, QQST 
Cr«MM0N/0PSTT2/0QCVS{  30,20)  ,QQCVM(  30,20)  , QQTTBL ( 30 , 20) , 

1  QTSTBL( 30,20) ,QQTCA ( 30 I , QQTSC A (30 ) , QQTCL ( 30 ) , 

2  QQSS(30,20),QQSM(30,20),QQNS( 30,20) ,QQNM( 30,20) , 

3  QQNl  (30,20), QQDLH30, 20) 
C    %%%%%%%%%%%%%%%% 

!NTEGER*4  MC,MW,BP 

C0MM0N/CNTBLK/MC(20) , MW( 20) , BP ( 20 ,30) , S AF( 20 , 30) ,NCNT, NPOD, NCON, 
1  NCNTRG,KCNTRG(20) 
REAL*4  CFCUB,CFAF,CFUT,CUESP,CFESP,XADJ 
INTEGER*4  TOTCSC ,TOTCSP,CCCUB , CVPB 
COMMON/STATBK/  CFCUB(30  ),CCCUB(30  ),CFUT(20,30  ) ,CUESP (20 ,30  ), 

1  CFESP(30  ),CVPB(20,30  ),XADJ(200  ),CFAF(30  ), TOTCSC ( 1500  ), 

2  TOTCSP(30  > 

COMMON /CSBLK/  CSFU500)  ,CSL(1500)  ,  SLP(  10  ,30)  ,  NSL  VL 
COMMON/SCBLK/  SCF(20  ,30  ),SCL(20  ,30  ),CLSOPT 
COMMON/CVCBLK/  CVF,CVL 
COMMON/TMPTCN/  TIME,  PTCN,  PTCNC 

COMMON/RCSTBK/  NXTRP , RELRP, NXTPP, RECSI Z , MXUREC , REC (  32000) 
REAL*4  BRNG,CRNG 
INTEGER*4  SEED 

COMMON/PPOBBK/  SEED,  BRNG( 30 ) ,CRNG( 30 ) , BSTRT ( 30 ) ,CSTRT ( 30) , 
1  BDSTYP(30),CDSTYP(30)1CRELT(30)1BRELT(30) 

CCMMON/CDELBL/  CDELCT.  CDELTS,  CDELTC,  CSATT,  CTDEL ,MXADVS, MASDVA 
COMMON/CTPLBK/  CNTPOL ( 20,30 ) 

INTEGER*4  UNT01,UNT02,       UNIT, UNT1 1 , UNT12 
COMMON/IOUNT/  UNT01,UNT02,       UNIT (8 ) , UNT1 1 , UNT12 
INTEGER*4  TOTAL ,MAXC , MAXCC, MAXW, I  XX, MAX WW, BKP, BEP 

REAL*4  FLOAT, XBKP 

INTEGER*4  SIZ4,WHT4 

REAL*4  XSIZ,XWHT,XPLC,XPLW,XPCTL 

INTEGER*4  LOC.FLOC 

DATA  BITl/l/.3IT2/2/1BITll/ll/ 
C      MNSPLV  =  MINIMUM  SPLIT  VOLUME,  (CUBIC  FEET) 

DATA  MNSPLV/200/ 
C      TVN=  TENTATIVE  VOYAGE  CODE 
C      MAXCC=  MAXIMUM  CUBE. 
C      MAXC=  REMAINING  CUBE. 
C      MAXWW=  MAXIMUM  WEIGHT. 
C      MAXW=  REMAINING  WEIGHT. 
C      1=  CONTAINER  TYPE 
C      J=  POD  SEQUENCE  NUMBER. 

LASTI=0 

LASTJ=0 

LASTF=0 

CUT1=TIME+CSATT 

CUT2=TIME+MASDVA 

ICNTRG=1 

FLAG=1 
2001    FLPT=CVF 

GO    TO    511 
2036    IF( ICNTRG.EQ.NCNTRG)     GO    TO    2038 

ICNTRG=ICNTRG+1 

GO    TO    2001 
2038    IF(FLAG.EQ.NSLVL)    RETURN 

ICNTRG=1 

FLAG=FLAG+1 

GO  TO  2001 
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1     FLPT=REC(FLOC) 
511     IF(FLPT.EQ.O)    GO    TO    2036 

FLOC=FLPT*PECSIZ 

ASRlVE  =  REC(FL0O2) 

IFURPIVF.LT. CUT1  )    GO    TO    1 

IF(ARRIVE.GT.CUT2)    GO    TO    1 
1111    IF(PEC(FL0Ol).LT.l)     GO    TO    1 

J  =  REC     (FL0O4) 

I=PEC(FL0C+5) 

!F(KCNTRG(I ).NE.ICNTRG)    GO    TO     1 

IF(CNTPOL(I,J).LT.l)     GO    TO    1 

IF( (LASTI.EQ.I) .AND. (LASTJ.EQ. J) . AND. ( LASTF. EQ .FLAG ) )G0    TO    102 

LASTF=FLAG 

LASTI=I 

LASTJ=J 

MAXCC=MC(I) 

MAXCCA=MAXCC-SAF< I, J) 

MAXWW=MW(I) 

BKP=BP(I ,J) 

XBKP=FLOAT(BKP) 
105  PNSL=SLP(FLAG,J) 

PSTART=PNSL 

GO  TO  103 

101  PNSL=REC(PNSLT) 
IF(PSTART.NE.PNSL)  GO  TO  102 
GO  TO  1 

103  IF(PNSL.EQ.O)  GO  TO  2038 
C      COMPUTE  TOTAL  CUBE. 

102  TOTAL=0 
PNSLT=PNSL 
GO  TO  112 

111  PNSLT=REC(PNSLT) 

112  PNCS  =REC(PNSLT+1) 
TOTAL =TOTAL+TOTCSC( PNCS) 
SLN=REC(PNSLT+2) 
IF(SLN.EQ.O)  GO  TO  111 
BEP=IFIX(XADJ(SLN)*XBKP) 
IF(TOTAL.LT.BEP)  GO  TO  101 

C  STUFFING  ROUTINE 

C  PNSS  =  POINTS   TO  FIRST  RECORD  IN  STUFFABLE  STACK. 

C  PNCS=  CONSIGNEE  NUMBER. 

C       LASTCN  =  LAST  CONSIGNEE  STUFFED. 

C       SCFLAG  =  NUMBER  OF  CONSIGNEES  STUFFED. 

C  ITPARC=  NUMBER  OF  SEGMENTS  STUFFED  IN  CONTAINER. 

C      ITAGE=  TOTAL  AGE  OF  SHIPMENTS  STUFFED. 
C      ITSH=NUMBER  OF  SHIPMENTS  STUFFED. 

BRANCH=1 

LASTCN=0 

SCFLAG=0 

ITPARC=0 

ITAGE=0 

ITSH=0 

MAXW=MAXWW 

MAXC=MAXCCA 

PPSTRT=PNSL 
C      ANY  MORE  SHIPMENTS  IN  CONSIGNEE  STACK? 
225  PNCS=REC(PNSL+1) 

PNSS=CSF(PNCS) 
224  IF(PNSS.EQ.O)  GO  TO  221 
C      WILL  SHIPMENT  FIT? 

LOC=PNSS*RECSIZ 

SIZE=REC(LOC  +2) 

IF(SIZE.GT.MAXC)  GO  TO  222 

WEIGHT=REC(LOC  +3) 

IF(WEIGHT.GT.MAXW)  GO  TO  222 

TCNI=REC(LOC  +1) 
2223  T=TIME-REC(LOC  +5)+l 

TOTCSC ( PNCS )=TOTCSC( PNCS) -SIZE 

TP0D=REC(L0C+6) 

TOTCSPC T POD )=TOTCSP(TPOD) -SIZE 

MAXC=MAXC-SIZE 

MAXW=MAXW-WEIGHT 

ITPARC=ITPARC+1 

IF(UNT02.GT.O)  WRITE ( UNT02, 223 )  B IT2T TI ME t TCN I , SI ZE ,WE I GHT , 
*  REC(L0C+5),J,PNCS,T 

223  F0RMAT(9A2) 
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K=CONGRP(PNCS) 
I  XX=  SIZE 

TEMPC8(   K)=TEMPCB(   K ) +DFLOAT ( I  XX) 
IXX=WEIGHT 

TEMPWTt   K)  =  TEMPWT(   K  )+DFLOAT ( I  XX) 
C  %%%%%%%%%%%%%%%% 

IF(TCNI.LT.l)  GO  TO  227 

TEMPNS(K)=TEMpNS(K)+l 

IF(T.GT.TEMPXA(K)  )  TEMPXA(K)=T 

IF(T.LT.TEMPMA(K)  )  TEMPMA(K)=T 

TEMPAG(K)=TEMPAG(K)+T 

TEMPAS(K)=TEMPAS(K)+  T**2 
C  %$%%%%%%%%%%%%%% 

ITAGE=ITAGE+T 

ITSH=ITSH+1 

IF(UNT12.GT.O)  WR ITE ( UNT12 , 228 )  TIME,T,PNCS 
228  FORMATOA2) 
227  IF(LASTCN.EQ.PNCS)  GO  TO  226 

SCFLAG=SCFLAG+1 

LASTCN=PNCS 
226  IF(BPANCH.EQ.2)  GO  TO  2221 

RFLPP=PNSS 

PNSS=REC(LOC  ) 

CSF(PMCS)=PNSS 

IF(PNSS.EQ.O)  CSL(PNCS)=0 

CALL  RELREC 

GO  TO  224 
C      NO  MORE  SHIPMENTS  IN  CURRENT  CONSIGNEE  STACK. 
C      ANY  MORE  CONSIGNEES  IN  LIST? 

221  T=REC(PNSL+2) 
PNSL=REC(PNSL) 
IF(T)  225,225,251 

C      SHIPMENT  DOES  NOT  FIT. 

C      CLOSE  OUT  CONTAINER,  UPOATE  DATA,  AND  TRANSFER. 

222  IFCMAXC.LT. MNSPLV)  GO  TO  2221 
C     SPLIT  THE  SHIPMENT 

SIZ4=SIZE 
WHT4=WEIGHT 
XSIZ=FL0AT(SIZ4) 
XWHT=FL0AT(WHT4) 

IF(WEIGHT.LE.O)  XWHT=.l 

IF(SIZE.LE.O)  XSIZ  =.1 
C      XPLC=  PROPORTION  OF  SHIPMENT   LOADABLE  USING  CUBE  AS  A  CONSTRAINT. 
C      XPLW=  PROPORTION  OF  SHIPMENT   LOADABLE  USING  WEIGHT  AS  A  CONSTRAIN 

XPLC=FLOAT(MAXC)/XSIZ 

XPLW=FLOAT(MAXW)/XWHT 
C  XPCTL=    LOADABLE    PROPORTION 

XPCTL=XPLC 

IF(XPCTL.GT.XPLW)  XPCTL=XPLW 
C      LDBLC=  LOADABLE  CUBE 
C      LDBLW=  LOADABLE  WEIGHT 

LDBLC=IFIX(XPCTL*XSIZ) 

LDBLW=IFIX(XPCTL*XWHT) 

REMV0L=REC(L0C+2)  -LDBLC 

REC(L0C+2)=REMV0L 
REC(L0C+3)=REC(L0C+3)-L0BLW 
SIZE=LDBLC 
WEIGHT=LDBLW 
BRANCH=2 
TCNI=REC(LOC+l) 
TF(TCNI.LT.O)  GO  TO  2223 
TCNI=-TCNI 
GO  TO  2223 
2221  PNSL=PPSTRT 
251  SLP(FLAG,J)=PNSL 
C   AMT=CUBE  IN  CONTAINER  (CANNOT  EXCEED  32K) 
TVN=REC(FLOC+8) 
REC(FLOC+l)=REC(FLOC+l)-l 
PEC<FL0C+9)=REC(FL0C+9)+l 
CVPB( I , J)=CVPB(I, J)-MAXCC 
CNTPOLU  ,J)=CNTP0L(I,  J)-l 
AMT=MAXCCA-MAXC 
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C  TRANSFER    CONTAINER 

CALL    NXTREC 
LOC=NXTRP*RECSIZ 
REC(LOC       )=0 
PTCNC=PTCNC+1 
T=PTCNC 

IF(SCFLAG.GT.l)    T=-T 
REC1LOC       +1)=T 
RECtLOC       +2»=TVN 

CWT  =(MAXWW-MAXW+51)/100 

REC(L0C+3)=CWT 
RECCLOC       +4)=AMT 
RECCLOC       +5)=TIME 
REC(LOC       +6)=TIME+CDELTC 
REC(L0C+7)=ITAGE 
REC(L0C+8)=ITPARC 
RFC(LGC+9)=ITSH 
IPROP=(100*AMTJ/MAXCC 
WPROP=(10000*CWT)/MAXWW 
IF(AMT.GE.BEP)  GO    TO    253 

IF(UNTOl.GT.O)    WRITE(UNT01,252)     B IT1 ,T I  ME , I  PROP, WPROP,T f SLN, 

*  SCFLAG,J,I ,ITPARC, ITSH,ITAGE 

252  FORMAT(12A2) 

253  IF(UNTll.GT.O)    WR 1TE ( UNT1 1, 254)     B ITU , T I  ME , J, I , AMT,  I  PROP, 

*  CWT,WPROP,T,SLN,SCFLAG,ITPAPC,ITSH,ITAGE 

254  F0RMATU4A2) 

\s       ^  ^)  ^y  ^  ^  ^>  ^b  *}  ^>  ^^  t>  ^>  ^  ^  ^>  ^ 

IF(SCFLAG.GT.l)    GO    TO    411 
I XX= I T  S  H 

QQSS( J, I )=QQSS( J, I)    +    IXX 

QQCVS< J, I)  =  QQCVS( J,I  )    +    DFLOATITEMPCB(K) ) 
QQNS(J,I)=    QQNS(J,I)    +    1 
SCCB(J,K)=SCCB(J,K)+DFLOAT(TEMPCB(K) ) 
TEMPCB(K)=0 

SCCBT(  J,K)  =  SCCBT(  J. K ) +DFLOAT1 MAXCC) 
TWTT(  J,K)=TWTT( J T K l+DFLOAT( MAXWW) 
416    TWT(  J,K)=TWT(J,K)+OFLOAT(TEMPWT(K) ) 
TEMPWT(K)=0 

NSHP( J,K)=NSHP(J,K)+TEMPNS(K) 
TEMPNS(K)=0 
IF(TEMPMA(K) .LT.MNAGE ( J,K) )    MNAGE ( J ,K) =TEMPMA ( K ) 

IF(TEMPXA(K).GT.MXAGE( J,K))    MX  AGE ( J , K ) =TEMPXA (K ) 

TEMPMA(K)=10000 

TEMPXA(K)=-10000 

TAGE(J.K)=TAGE( J , K ) +DFLOATCTEMPAG (K ) ) 

TEMPAG(K)=0 

TSAGEC J,K)=TSAGE( J, K ) +DFLOAT( TEMPAS(K ) ) 

TEMPAS(K)=0 

IF(SCFLAG-l)    412,412,413 

411  IXX=ITSH 

QQSM( J, I )=QQSM( J, I)+    IXX 

IXX=0 

00    414    K=l,4 

414  IXX=IXX«-TEMPCB(K) 

QQCVM( J, I)=QQCVM( J?I )    +    DFLOAT(IXX) 
QQNM( J, I )=QONM( J,  I)    +    1 
DO    415    K=l,4 

415  AACUB(K)=FLOAT(TEMPCB(K))/FLOAT(lXX) 
K=0 

413    IF(K.EQ.4)    GO    TO    412 
K=K+1 

MXCB(J,K)=MXCB<J,K)+DFLOAT(TEMPCB(K) ) 
TEMPCB(K)=0 

MXCBT( J,K)=MXCBT(J,K)+       OBLE( AACUB(K ) ) *DFLOAT( MAXCC ) 
TWTT(J,K)=TWTT{ J , K )+DBLE< AACUB ( K ) )  *DFLOAT( MAXWW) 
GO    TO    416 

412  CONTINUE 

v*         Ay  ^^  ^  Ay  ^y  ^  Ay  Ay  ^  Ay  Ay  Ay  Ay  Ay  Ay  A*> 

C  ADD    STUFFED    CONTAINER    TO    STUFFED    CONTAINER    STACK 

LOC=SCL(I,J)*RECSIZ 
IF(LOC.EQ.O)    GO    TO    2 
REC(LOC)=NXTRP 
SCLd,  J)=NXTRP 
GO    TO    1111 
2    SCLd,  J)=NXTRP 
SCF( I, J)=NXTRP 
GO    TO    1111 
END 
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CONTAINER  LIFT  ROUTINE  DECK 


SUBROUTINE    CL 
IMPLICIT    INTEGER*2    (A-Z) 
INTEGER**    MC,MW,BP 

COMMON /CNTBLK/MCC 20) , MW( 20) , BP < 20 , 30) , S AF ( 20, 30 ) ,NCNTt NPOD, NCON, 
1    NCNTRG.KCNTRG(20) 
REAL**    CFCUB,CFAF,CFUT,CUESP,CFESP,XADJ 
INTEGER**   TOTCSC , TOTCSP ,CCCUB , CVPB 
COMMON/STATBK/    CFCUB(30    ),CCCUB(30    ),CFUT<20,30    ) ,CUESP ( 20,30    ), 

1  CFESP(30    ),CVPB(20,30    ),XADJ(200    ),CFAF<30    ), TOTCSC < 1500     ), 

2  T0TCSP(30  ) 

COMMON/SCBLK/  SCF(20  ,30  ),SCL(20  ,30  ),CLS0PT 

COMMON/CVCBLK/  CVF.CVL 

COMMON/TMPTCN/  TIME,  PTCN,  PTCNC 

CPMMON/RCSTBK/  NXTRP , RELRP, NXTPP, RECS I Z , MXUREC, REC (  32000) 

COMMON/CTPLBK/  CNTPOL ( 20,30 ) 

INTEGER*4  UNIT ,UNT10 , UNT01 , UNT02 ,UNT03 
COMMON/IOUNT/  UNT01 , UNT02, UNT03, UNIT(6) ,UNT10 

INTEGER**  QLVAD,QDIFF,QNVAP 

REAL*4  XTBVS,XTBVSS 

CCMM0N/0PSTT1/  QDIFF , QNVAP ( 30 ) ,QLVAD(30) ,XTBVS(30) ,XTBVSS(30) 

RFAL*8  QQCVS.QQCVM 

INTEGER**  QQTTBL,OTSTBL,QQTCA.QOTSCA,QQNT,QQST 

COMM0N/OPSTT2/QQCVS(30,20),QQCVM<30,20) , QQTTBL ( 30, 20) , 

1  QTSTBL(30,20),QQTCA(30),QQTSCA(30),QQTCL(30), 

2  QQSS(30,20),QQSM(30120),QQNS(30,20) ,QQNM( 30,20) , 

3  QQNL(30,20),QQDLL(30,20) 

INTEGER**       TOTC,TOTW,IFIX,TCAGE,ICAGE 
REAL**  XWPCT,XCPCT,XN,XTEMP,FLOAT,XACAGE,XAAGE 
INTEGER**  LOC,J,K 
INTEGER**  TOTN*, ITSH*, ITAGE 
INTEGER**  EX*, REC* 
DATA  BIT3/3/,BIT10/10/ 
2  IF(CVF.EQ.O)  RETURN 
L0C=CVF*RECSIZ 
IF(REC(L0C+2)-TIME)  3,*, 5 
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3  WRITE(6,6)   (RECUOC  +  K)  ,K=1,9) 

6  FORMAT (•  VESSEL  OUT  OF  ORDER»  CL  ROUTINE:   «,9I7) 

STOP 
5  RETURN 

4  P0D=PEC(L0C+4) 
CT=  REC(LOC+5) 
VYN=REC(LOC+8) 
RCA=REC(LOC+3) 
0CA=REC(L0C+7) 
FPNT=0 

PNT=SCF(CTtPOD) 
TQTN=0 
TOTNSC=0 
TOTC=0 

TOTW=0 

TCAGE=0 

ITSH=0 

ITAGE=0 

ITPARC=0 

GO  TO  11 
251  FPNT=PNT 

PNT=REC( J) 
11  IF(PNT.EQ.O)  GO  TO  25 

j=PNT*RECSIZ 

IF(REC( J+6).GT.TIME)  GO  TO  251 

IF(VYN.NE.PvEC<J+2>)    GO  TO  251 

TOTN=TOTN+l 

T0TC=T0TC+REC(J+4) 

REC4=REC( J+3) 

T0TW=T0TW+REC4*100 

ICAGE=TIME-REC< J+5) 

TCAGE=TCAGE+ICAGE 
C 
C *************** 

QQTSCA(POD)-QQTSCA(POD)+ICAGE**2 
C ******** ******* 

c 

LPTCN=REC(J+1) 

IF(LPTCN.GT.O)  TOTNSC=TOTNSC+l 

ITAGE=ITAGE+REC( J+7) 

ITPARC=ITPARC+REC(J+8) 

ITSH=ITSH+REC(J+9) 

IF(FPNT.EQ.O)  GO  TO  261 

K=FPNT*RECSIZ 

!F(REC(  JKEQ.O)  GO  TO  262 
C      NOT  A  BEGINNING,  NOT  AT  END 

REC(K)=REC(J) 

GO  TO  263 
C      AT  SEGINNING 

261  IF(RECU).EQ.O)  GO  TO  264 
C      NOT  AT  END,  AT  BEGINNING 

SCF(CT,POD)=REC(J) 

GO  TO  263 
C      AT  END,  AT  BEGINNING 
264  SCF(CT,POD)=0 

SCL(CT.P0D)=0 

GO  TO  263 
C      NOT  AT  BEGINNING,  AT  END 

262  REC(K)=0 
SCL(CT,POD)=FPNT 

263  RELRP=PNT 
PNT=REC(J) 
CALL    RELREC 
GO    TO    11 

25    IF(REC(L0C+9).EQ.T0TN)    GO    TO    271 

WRITE(6,28)  VYN,POD*CT 
28  FORMATC  CONTAINER(S)  LOST  SOMEWHERE  IN  THE 
1     ■  OR  VOYAGE  NUMBERS  ARE  NOT  UNIQUE1, 317) 

STOP 
271  EXCESS  =  REC(LOC+l) 

XACAGE=0.0 

XAAGE=0.0 

XCPCT=0.0 

XWPCT=0.0 
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IF(TOTN.LT.l)    GO    TO    31 
T0TN4=T0TN 
XN=FL0AT(T0TN4) 
XACA GE= FLOAT (TC AGE )/XN 
ACAGE=IFIX(XACAGE*100.) 
XCPCT=FLOAT <TOTC)/(XN* FLOAT (MC(CT))  ) 
XWPCT=FLOAT(TOTW)/(XN*FLOAT(MW(CT)) ) 
XTEMP=CFUT(CT,POD) 

CFUT(CT,POD)=XTEMP    +    CUESP( CT T POD )* ( XCPCT    -    XTEMP) 
WPCT=IFIX((XWPCT  )*10000.) 

CPCT=IFIX((XCPCT         )*10000.) 
IAAGE=0 

IF(ITSH.EQ.O)  GO  TO  3111 
ITSH4=ITSH 

XAAGE=FLOAT(ITAGE)/FLOAT(ITSH4) 
IAAGE=IFIX(XAAGE*lQO.O) 
3111  CONTINUE 

IF(UNTIO.GT.O)  WRITE(UNT10,26)  BI TIO, TI ME, AC AGE, TOTN, 
1  TOTNSC,POD,CPCT,WPCT,CT,VYN,ITPARC,ITSH, IAAGE 

26  FORMAT(13A2) 

Q ********* 

IF(QNVAP(POD).NE.-l)     GO    TO    9001 

QLVAD(POD)=TIME 

QNVAP(POD)=0 

XTBVS(POD)=0.0 

XTBVSS(POD>=0.0 

GO    TO    9002 

9001  QDTFF=TIME-QLVAD(POD) 

XTBVS(  POD )  =  FLOAT ( QDIFF ) +XTBVS ( POD) 
XTBVSS(POD)=FLOAT(QD!FF  *QD IFF ) +XTBVSS < POD) 
QNVAP( P0D)=QNVAP(P0D)+1 
QLVAD(PQD)=TIME 

9002  CONTINUE 

IF(QQNL(POD,CT)     .NE.    -1)    GO    TO    9003 
QQDLL(POD,CT)    =    TIME 
QQNL(POD,CT)     =    0 
GO    TO    9004 

9003  QDIFF=TIME    -    QQDLL ( PODtCT) 
QQTTBL(POD,CT)=    QQTTBL ( POD,CT )    +    QDIFF 
QTSTBL(POD,CT)=    QTSTBL ( POD,CT )    +    QDIFF**2 
QQNL(POD,CT)=QQNL(POD,CT)+    1 
QQDLL(POD,CT)=    TIME 

9004  QQTCA(POD)=QQTCA(POD)+TCAGE 
QQTCL(POD)=QQTCL(POD)+TOTN 

G  #3$c3!t*3({!{t:{c** 

31    EX4=EXCESS 

CVPB(CT,P0D)=CVPB(CT,P0D)-EX4*MC(CT) 
C 

CNTPOL ( CT, POD )=CNTPOL(CT, POD) -EXCESS 
C 

RELRP=CVF 

CVF^REC(LOC) 

IF(CVF.EQ.O)    CVL=0 

CALL    RELREC 

r ********** 

IFCCLSOPT.LT. 1)    WRITE(6,8512)     TT ME. VYN , POD,CT , TOTN , TOTNSC , 
1  XCPCT,XWPCT,EXCESS,RCA.OCA,XACAGE,XAAGE 

85  12    F0RMAT(I6,I8,I5,I8,I10,I4,F8.4,F7.4,I14,I8,I11,F12.4,F12.4) 

C    *  *  *  *  *  *  *  *  *  * 

IF(UNT03.GT.0)  WRITE ( UNT03, 303 ) BI T3, TIME, EXCESS , J , I ,VYN , RCA, OCA , 
1       TOTN 
303  F0RMATC9A2) 
GO  TO  2 
END 
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RECORD  ACCESS  AND  STORAGE  ROUTINES  DECK 

SUBROUTINE    NXTREC 

CCMMON/RCSTBK/ENXTRP,RELRP,NXTPP,RECSIZ,MXUREC,REC(     32000) 

NXTRP=NXTPP  ..,.,.,,  . 

NXTPP=RECtNXTPP*RECSIZ)  _    n 

IF (MXUREC.LT. NXTPP)    MXUREC=NXTPP 
IF(NXTPP.GT.O)RETURN 

FORMAltjlNO    MORE    RECORDS    AVAILABLE1) 
CALL    STATE 

STOP 

END 

SUBROUTINE    RELREC 

COM^PjRCSTBK/ENXTRPiRELRP,NXTPP,PECSIZ,MXUREC,REC(    32000) 

REC( RELRP*RECSIZ)=NXT PP 

NXTPP=RELRP 

RETURN 

END 


CONTAINER  DISPATCH  ROUTINE  DECK 

SUBROUTINE  CO 

IMPLICIT  INTEGER*2  (A-Z) 

COMMON/CVCBLK/  CVF,CVL 

COMMON/TMPTCN/  TIMF,  PTCN,  PTCNC  _  «™^. 

COMMON/RCSTBK/  NXTPP, RELRP, NXTPP, RECSI Z , MXUREC, REC(  32000) 

COMMON/CDELBL/  CDELCT,  CDELTS,  CDELTC,  CSATT,  CTDEL ,MXADVS, MASDVA 

COMMON/CTPLBK/  CNTPOL ( 20,30) 

INTEGER*^  LOC 
C   TRANSFER  EMPTY  CONTAINERS  TO  STUFFING  POINTS. 
C 
C  CVFF  IS  A  FOLLOWING  POINTER 

CVFF=CVF 

GOTO  4001 

4002  CVFF=REC(LOC  ) 

4001  IF(CVFF.EQ.O)  RETURN 
C 

LOC=CVFF*RECSIZ 
C  CHECKING  FOR  SHIP  IN  CTDEL  DAYS. 

T=REC(LOC    +2)-TIME-CSATT 

IF(T)    4002,4003,4008 
C 

4003  I=REC(L0C+5) 

J=REC(L0C+4)  ,...„,.   . 

CNTPOL ( I,J)=CNTPOL(I, J )+REC( LOC+1 ) 
GOTO  4002 
C 
4008  RETURN 
FND 
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SHIPMENT   INPUT  ROUTINE  DECK 

SUBROUTINE    CLASS 

IMPLICIT    INTEGER*2    (A-Z) 

RFAL*4    CFCUB,CFAF,CFUT,CUESPjCFESP,XADJ 

INTEGER*4    tqTcSC t TOTCSP, CCCUB , CVPB 

COMMON/STATBK/    CFCUBOO    ),CCCUB(30    ),CFUT(20,30    ),  CUESP  ( 20,30    ) 

1  CFESPC30    ).CVPB(20,30    ),XADJ(200    ),CFAF(30    ) ,TOTCSC ( 1500    ), 

2  T0TCSP(30  ) 

COMMON/CSBLK/  CSF ( 15  00 ) ,CSL( 1500 )  , SLP( 10 ,3  0) , NSLVL 

COMMON/TMPTCN/  TIME,  PTCN,  PTCNC 

COMMON/RCSTBK/  NXTRP, RELRP, NXTPP , RECSI Z , MXUREC, REC {  32000) 

INTEGER*^  LOC 

DATA  STO/1/, JUMP/0/ 

IF(ST0.EQ.2)G0T0  100 

C 

r 

C 

C   DTEP  IS  DATE  RECEIVED 

C   POD  IS  PORT  OF  DEBARKATION  (BINARY  SEQUENCE  NUMBER). 
C   CT  IS  TYPE  OF  SHIPMENT  (BINARY), 
C   WT  IS  WEIGHT  (BINARY). 
C   CB  IS  CUBE  (BINARY). 

C   CON  IS  CONSIGNEE  (BINARY  SEQUENCE  NUMBER). 
STH=2 

111  "EAD(    13,101,END=103)DTER,  POD,CT,    WT,CB , CON,TCNI 

101  F0RMAT(7A2) 
C 
C 
C      TCNI  IS  INPUT  SHIPMENT  NUMBER. 

DTER  -    DTER+  JUMP 
C 
C 

100  IF(DTER.GT.TIME)  RETURN 
C 

PTCN=PTCN+1 
C 

c 
c 

113  I=CON 
CCCUB(POD)=CCCUB(POD)+CB 
TOTCSC( I )=TOTCSC(I)+CB 
TOTCSP(POD)*TOTCSP(POD)+CB 
LOC=CSL( I)*RECSIZ 

IF(LOC    .EQ.O)GOTO  114 

CALL  NXTREC 

REC(LOC    )=NXTRP 

CSL( I)=NXTRP 
C 

118  LOC=NXTRP*RECSIZ 

REC(LOC)=0 

REC(L0C+1)=TCNI 

REC(L0C+2)=CB 

REC(L0C+3)=WT 

REC(L0C+4)^CT 

REC(L0C+5)=DTER 

REC(L0C+6)=P0D 

GO    TO    111 
C 

114  CALL  NXTREC 
CSL( I )=NXTRP 
CSF( I )=NXTRP 
GO  TO  118 

C 

103  REWIND  13 
JUMP=TIME 
GO  TO  111 

END 
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VESSEL  INPUT  ROUTINE  DECK 


SUBROUTINE    CVIN 
IMPLICIT    INTEGER*2    (A-Z) 
COMMON/CVCBLK/    CVF,CVL 
COMMON/TMPTCN/    TIME,     PTCN,    PTCNC 

COMMON/RCSTBK/    NXTRP, RELRP.NXT PP, RECSI Z , MXUREC, REC (    32000) 
COMMON/CTPLBK/    CNTPOL ( 20,30) 
INTEGER*4    LOC 

VIA=    VESSEL     INPUT    ADVANCE    PARAMETER. 
DATA    VIA/21/ 

DATA       SFLAG/1/,     JUMP/0/ ,JVYN/0/ 
CUT=TIME+VIA 
IF(SFLAG.EQ.2)    GO    TO    1 
SFLAG=2 
3    READ    (  12, 1002,END-1003)    VA , VB , VC, VD, VE, VF , VG 

1002  F0RMATC7A2) 
VB=VB+JUMP 

1  IF(VB.GT.CUT)  RETURN 
CALL  NXTREC 
LOC=NXTRP*RECSIZ 
REC(LOC   )=0 
RECtLOC   +  1)=0 
RFCJLOC   +2)=VB 
RECtLOC   +3)=VF 
REC(LOC   +4)=VC 
RECtLOC   +5)=VE 
RECtLOC   +6)=VD 
RECtLOC   +7)=VG 
RECtLOC   +8)=VA 
RECtLOC   +9)=0 
IFtCVL.EO.O)  GO  TO  2 
LOC=CVL*RECSIZ 
RECtLOC)=NXTRP 
CVL=NXTRP 

GO  TO  3 

2  CVL=NXTRP. 
CVF=NXTRP 
GO  TO  3 

1003  JUMP=CUT 
REWIND  12 
GO  TO  3 
END 
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CONTAINER  BOOKING  ROUTINE  DECK 

SUBROUTINE    CBOOK 
IMPLICIT    INTEGER*2    (A-Z) 
INTEGER**    MC,MW,BP 

C0MM0N/CNTBLK/MC(20) . MW(20) , BP (20 »30) , S AF ( 20 , 30 > , NCNT, NPOD,NCON, 
1    NCNTRG.KCNTRG(20) 
REAL**    CFCUB,CFAF,CFUT,CUESP,CFESP,XADJ 
INTEGER**    TOTCSC,TOTCSP,CCCUB,CVPB 
COMMON/STA^BK/    CFCUBOO    ),CCCUB(30    ),CFUT(20.30    ) ,CUESP ( 20, 30     ), 

1  CFESP(30    ),CVPB(20,30    ),XADJ(200    ),CFAF(30    ) , TOTCSC ( 1500     ), 

2  T0TCSP(30    ) 
COMMON/CVCBLK/    CVF,CVL 
COMMON/TMPTCN/    TIME,     PTCN,    PTCNC 

COMMON/RCSTBK/    NXTPP , RELRP,NXTppt RECSI Z , MXUREC, REC(     32000) 

REAL**    CRNG,XCMXLB 

INTEGER**    SEED 

COMMON/PROBBK/  SEED,CRNG(30  ) , XCMXLB( 20 , 30  ),CSTRT(30  ), 
1     CDSTYP(30  ),CRELT(30  ) 

COMMON/CDELBL/  CDELCT,  COELTS »  CDELTC,  CSATT,  CTDEL ,MXADVS, MASDVA 

INTEGER**  L0C1,LCC2,SEEDL1TEMP1IFIX,CALL0W,RCA10CA 

REAL**   VOL,FLOAT,SUMB,CSCB,NTR,UTIFAC,RNDNUM,CUT 

DIMENSION   CSCB130) 

DATA  SFLAG/1/ 

IF(CVF.EQ.O)  RETURN 
C      CSCB(J)=CARGO  SPACE  CURRENTLY  BOOKED, POD  (Jl,  CARGO  CUBIC  FEET. 

DO  1  J=1,NP0D 

SUMB=0.0 

DO    2    I=1,NCNT 
2    SUMB=SUMB+FLOAT(CVPB(  I, J))*    CFUT(I,J) 
1    CSCB(J)=SUMB 

L0C1=CVF*RECSIZ 

IF(SFLAG.EQ.2J  GO  TO  1001 

SFLAG=2 

SEEDL=SEED 

GO  TO  1001 
100*  L0C1=REC(L0C1)*RECSIZ 

IF(LOCl.EQ.O)  RETURN 
1001  P0D=REC(L0C1+*) 

APDEL=REC(LOC 1+2) -TIME 

IF(ARDEL-CTDEL.LT.l)     GO    TO    100* 

RCA=REC(L0Cl+3) 

IF(CPELT(POD).GT.ARDEL)    RCA=0 

0CA=REC(L0Cl+7) 

IF((PCA.LT.l) .AND.(OCA.LT.l) )     GO    TO    100* 

TEMP=ARDEL-CSATT 

NTR    =FLOAT(TOTCSP(POD) J+FLOAT < TEMP) *CFCUB( POD ) *CFAF ( POD )-CSCB ( POD) 
C  NTR=NET    REQUIREMENTS,     CARGO    CUBIC    FEET. 

IF(NTP.LE.O.O)  GO  TO  100* 

CT=REC(L0Cl+5) 

UTIFAC=CFUT(CT,POD) 

VOL=FLOAT(MC(CT) ) 
C      CNEED=  CONTAINERS  NEEDED 

CMEED=  IFIX1.51  +  NTR/ (UTIFAC*VCL  ) ) 

IF(  CNEED.LT.l)  GO  TO  100* 

IF(RCA.LT.l)  GO  TO  3111 

CALLOW=RCA 

IF(CNEED.LT. CALLOW)  CALLCW=CNEED 

REC< LOC 1+3 )=REC( LOCI +3) -CALLOW 

REC(L0C1+1)=REC(L0C1+1)+CALL0W 

TEMP=CALLOW*MC(CT) 

CVPB(CT,POD)=CVPB(CT,PCD)+TEMP 

CSCB(P06)=CSCB(P0D)+FL0AT(TEMP)*UTIFAC  . 

CNEED^CNEED-CALLOW 

IF(CNEED.LT.l)  GO  TO  100* 
3111  IF(OCA.LT.l)  GO  TO  100* 
C      ATTEMPT  TO  BOOK. 

TEMP=ARDEL-CSTRT(POD) 

IFCTEMP.LT. 1)  GO  TO  100* 

CALL  RANDU(SEEDL,SEEDL,RNDNUM) 

CUT= FLOAT ( TE MP )/C PNG (POD) 

IF(CUT.GT.l.O)    CUT=1.0 

IF(CUT*XCMXLB(CT,PGDi .LT.RNDNUM)     GOTO    100* 

IF(CDSTYP(POD))    3001,3002,3003 
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3001  GO    TO    1004 

3003  £A!pLc,R^?V^!EDL»SEEDL'RNDNUM) 
CUT=FLOAT(OCA    *RNDNUM    +    .49 
CALLOW=IFIX(CUT) 

GO    TO    3004 

3002  CALLOW=OCA 

3004  IF(CNEED.LT. CALLOW)  CALLOW=CNEED 
RECLOC 1+7) =REC(L0Cl+7) -CALLOW 
REC(L0C1+1)=REC(L0C1+1)+CALL0W 
TEMP=CALLOW*MC(CT) 
CVPB(CT,PQD)=CVPB(CT,POD)+TEMP 

CSC B ( POD ) =CSCB (POD) +FLOAT ( TEMP )*UT I FAC 

GO    TO    1004 

END 


/ 


STATE  ROUTINE  DECK 

SUBROUTINE    STATE 
IMPLICIT    INTEGER*2    ( A-Z ) 
INTEGER*4    MC,MW.BP 

lCNCNTRGCKCNTRG?2of0,,MW(20,,BP<20,30,,SAF(20,3° 

REAL*4  ^FCUB,CFAF,CFUTtCUESP,CFESP,XADJ 

INTEGER*4  TOTCSC , TOTCSP ,CCCUB  ,  CVPB 

COMMON/STATBK/  CFCUB(30  ),CCCUB(30  ),CFUT(20,30  ) ,CUESP (20, 30  ), 
i     S£i5E(?°  ),CVPB(20,30  ),XADJ(200  ),CFAF(30  ) , TOTCSC ( 156o  ) 
2     T0TCSP(30  ) 

MM?SW  ^;^*^^'^Scp,RECSIZ'MXUREC*REC(  32000) 

COMMON/CTPLBK/  CNTPOL ( 20,30) 

WRITE(6,4)  TIME,MXUREC 

F0RMAT(«1',2I10) 

WRITE (6,1)     (CFCUB(J) , TOTCSP ( J) ,J=1,NP0D) 

FOPMAT(     F10.0,     110) 

WRITE(6,2)       (TOTCSC(K) ,K=1,NC0N) 

FORMAT(IOIIO) 

^^i6T?L(i9FUT(I'J,'I  =  1'NCNT,»  J-l.NPOD) 

rUKMA I l 1 6F5 • Z  I 

i  ^iM^?!?MiTivf?!{'J,*CNTP0L(I'J)'I=1'NCNT,'J=1'NP0D» 

1    rUKM A  1  t  1 X,  1 61  I  6 , I  2 )  ) 

RETURN 
END 


CARDS  AT  END  OF  PROGRAM  DECK 


/?LINK.SYSLMOD    DD    DSNAME= F0826.CSSM ( PI ) ,DISP= ( NEW, KEEP ) 
//  UNIT=2314,V0LUME=SER=DUFFY,LABEL=EXPDT=74180, 


//  SPACE=(CYL,(2, ,1) ) 
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FLOW  CHART  OF  THE  SHIPMENT  INPUT  ROUTINE 
(Subroutine  CLASS) 


f       START   J 
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SHIPMENT  INPUT  ROUTINE  STEP  ANNOTATION 


1.  Is  this  the  first  time  the  routine  has  been  called?   If  not,  go  to  h 

2.  Set  JUMP  equal  to  zero. 

3.  Read  the  next  record  on  the  shipment  input  file,  and  increment  the       (ill) 
arrival  day  by  JUMP  (i.e.  DTER  =  DTER  +  JUMP);  if  end-of-file,  go  to  7. 

k.      If  the  arrival  day  of  the  shipment  segment  is  greater  than  the  current 

day,  return  to  the  calling  program.  (100) 

5.  Increment  the  number  of  Shipment  arrivals,  and  increase  consignee  and 
POD  volume  accumulators  by  the  shipment  segment  volume. 

6.  Add  the  shipment  data  record  to  the  consignee's  shipment  stack,  and 
go  to  3. 

7.  Rewind  the  shipment  input  file.  (103) 

8.  Set  JUMP  equal  to  the  current  day,  and  go  to  3. 
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FLOW  CHART  OF  THE  CONTAINER  STUFFING  ROUTINE   (Sheet  l) 
(Subroutine  CST) 
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FLOW  CHART  OF  THE  CONTAINER  STUFFING  ROUTINE  (Sheet  2) 


*®-| — •© 
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CONTAINER  STUFFING  ROUTINE  STEP  ANNOTATION 

1.  Set  the  stuff able  container  group  to  1   (ICNTRG  =  l)  ,   and  the 
chapter  flag  to  1  (FLAG  =  l)  .   Also,  initialize  miscellaneous 
variables,  and  calculate  current  stuff able  time  horizon  cutoffs. 

Ik.      Set  the  container  vessel  segment  pointer  to  the  beginning  of  the  stack.    (2001) 

IB.   Is  there  another  vessel  section  in  the  container  vessel  stack?   If  not,     (l) 
go  to  36.  (511) 

2.  Does  the  identified  vessel  arrive  during  the  current  stuf fable  time 
horizon?   If  not,  go  to  IB  .  (i.e.  if  the  arrival  time  is  not 
between   (TIME  +  CSATT)   and  (TIME  +  MASDVA)  ,   then  go  to  IB)  . 

3.  Are  thre  any  remaining  containers  for  this  vessel  section  which  are       (llll) 
booked  but  not  as  yet  stuffed?   If  not,  go  to  IB. 

h.      Let   (i)  =  vessel  section's  container  type. 
Let   (j)  =  vessel  section's  POD. 

UA.   Is  container  type   (i)   in  the  stuf fable  container  group?   If  not 
go  to  IB. 

5.  Are  there  any  containers  of  type   (i)   allocated  to  POD   (j) 
physically  available  at  the  stuffing  station?   If  not,  go  to  IB. 
(i.e.  if  CNTPOL  (l,j)  <  1,  then  go  to  IB). 

6.  Are  the   (l)   and  (j)   values  of  the  container  previously  stuffed 
today  the  same  as  the  new  (i)   and   (j)  values?   If  so,  then  go 
to  13.   (Going  directly  to  step  13.  continues  the  stuffing  exactly 
where  the  previous  container  left-off.) 

7.  Let  MAXCC  =  Maximum  cargo  volume  for  container  type   (i). 

Let  MAXCCA  =  maximum  cargo  usable  volume  for  container  type   (i). 

Let  MAXWW  =  maximum  cargo  weight  for  container  type   (i). 

Let  BKP  =  the  breakeven  volume  for  container  type   (i)  for  POD(j). 

8.  Locate  the  starting  point  of  the  stuffing  lists  in  chapter   (FLAG)  of     (105) 
POD  (J),  and  go  to  12. 

9.  Jump  to  the  next  stuffing  list,  and  check  to  see  if  it  is  the  one         (101) 
which  we  began  with  in  step  8;  if  it  is  then  go  to  IB,  otherwise 

go  to  13. 

12.  Does  the  current  chapter  have  any  stuffing  lists?   If  not,  then  go        (103) 
to  38. 
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13.   Compute  the  total  volume  of  cargo  for  the  consignees  on  the  (102) 

current  stuffing  list. 

Ik .      Compute  the  adjusted  minimum  load  requirement  by  multiplying 
the  value  of  (BKP)   determined  in  step  J_  by  the  adjustment 
factor  associated  with  the  current  stuffing  list  number. 

15.  If  the  volume  computed  in  step  13_  does  not  exceed  the  value 
computed  in  step  lA,  then  go  to  step  9  • 

16.  Let  MAXC  =  MAXCCA,  MAXW  =  MAXWW.   (MAXC  and  MAXW  represent  the 
remaining  stuffable  volume  and  remaining  stuffable  weight  for  the 
container  respectively.) 

IT.   Identify  the  next  consignee  on  the  current  stuffing  list.   Also,       (225) 
identify  the  next  shipment  segment  for  the  current  consignee. 

18.  If  there  is  not  a  shipment  available,  then  go  to  26.  (22U) 

19.  Will  the  current  shipment  segment  fit  into  the  container?  If 
not,  then  go  to  28.  (i.e.  if  either  the  volume  of  the  segment 
is  greater  than  (MAXW) ,  then  go  to  28. ) 

20.  Calculate  the  age  of  the  shipment  just  loaded  in  the  container         (2223) 
and  reduced  the  current  inventory  volumes  for  the  consignee  and 

POD,   reduce  MAXC  and  MAXW  accordingly,  and  increment  the 
number  of  shipment  segments  loaded  in  the  van.  Also,  tabulate 
volume  and  weight  statistics. 

21.  If  the  shipment  segment  is  part  of  a  split  shipment  and  is  not. 
the  last  segment  of  the  split  shipment,  then  go  to  23. 

22.  Tabulate  age  statistics. 

23.  If  the  current  shipment  is  not  for  the  same  consignee  previously        (227) 
loaded  in  the  container,  then  increment   (SCFLAG)   which  represents 

the  number  of  consignees  loaded  in  the  container. 

2l+.   If  the  shipment  segment  just  loaded  into  the  container  was  just         (226) 
split,  then  go  to  30. 

25.  Remove  the  shipment  segment  record  from  the  containerizable 
shipments  stack.  Also,  identify  the  next  shipment  segment  for 
the  current  consignee  and  go  to  18. 

26.  Identify  the  next  consignee  on  the  stuffing  list.   (The  next  con-       (221) 
signee  could  possibly  be  on  the  next  stuffing  list.) 
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27.  If  the  current  consignee  is  at  the  beginning  of  a  new  stuffing  list 
then  go  to  step  31_,  otherwise  go  to  17. 

28.  If  the  remaining  stuf fable  volume  in  the  container  is  less  than  the      (222) 
minimum  split  volume   (MNSPLV) ,   then  go  to  30. 

29.  The  current  shipment  segment  is  split  so  that  part  of  it  can  be 
loaded  into  the  container  and  meet  volume  and  weight  restrictions . 
Go  to  step  20. 

30.  Reset  the  stuffing  pointer  back  to  the  beginning  of  the  stuffing        (2221) 
list  just  used  to  load  the  container. 

31.  Store  the  current  stuffing  pointer  for  the  current  stuffing  list         (251) 
chapter  and  POD   for  future  reference. 

32.  Adjust  data  in  the  container  vessel  stack  to  reflect  the  closing 
out  of  a  newly  stuffed  container.  Also,  adjust  booking  and  con- 
tainer pool  data. 

33.  Create  a  record  with  the  appropriate  information  for  the  stuffed 
container  stack. 

3^+.   Tabulate  and  report  container  statistics. 

35.  Add  the  record  created  in  step  33  to  the  stuffed  container  stack, 
and  go  to  step  3.. 

36.  Is  this  the  last  container  group?   If  so,  go  to  38.  (2036) 

37.  Increment  the  stuffable  container  group   ( ICNTRG),  and  go  to  1A. 

38.  If  this  is  the  last  chapter  of  the  stuffing  lists,  return  to  the 
calling  program. 

39.  Set  the  stuffable  container  group  to  1  (ICNTRG  =  l)  ,   increment 
the  stuffing  list  chapter   (FLAG  =  FLAG  +  l)  ,   and  go  to  1A. 
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FLOW  CHAET  OF  THE  VESSEL  INPUT  ROUTINE 
(Subroutine  CVIN) 


— *f  5  J 1(  RETURN    J 

-0 
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VESSEL  INPUT  ROUTINE  STEP  ANNOTATION 
Variables  are  set  to  the  following  initial  values  by  the  compiler: 

VIA  =  21 
JUMP  =  0 

1.  Calculate  planning  horizon  cutoff  day  (i.e.  CUT  =  TIME  +  VIA) 

2.  If  this  is  not  the  first  time  the  subroutine  has  been  called, 
then  go  to  5 

3.  Read  a  record  from  the  vessel  file.   If  the  end-of-file  has  (3) 
been  reached,  go  to  7. 

h.     Adjust  arrival  date  of  vessel  by  the  value  of  the  variable 
JUMP  (i.e.  VB  =  VB  +  JUMP ) . 

5.  If  the  vessel  arrival  day  is  greater  than  the  planning  horizon       (l) 
cutoff  day,  then  return  to  the  calling  program. 

6.  Add  the  vessel  segment  data  record  to  the  end  of  the  vessel  stack, 
and  go  to  3. 

7.  Rewind  the  vessel  file.  (1003) 

8.  Set  JUMP  equal  to  the  current  day,  and  go  to  3. 
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FLOW  CHART  OF  THE  BOOKING  ROUTINE 
(Subroutine  CBOOK) 


(    START    J \\) *(  2  J- 


10 


11 


12 


13 


14 


15 


162 


BOOKING  ROUTINE  ANNOTATION 


1.  Calculate  the  volume  of  cargo  currently  booked  for  each  POD  .   This 
is  accomplished  by  taking  the  total  volume  of  containers  booked  and 
multiplying  that  by  the  contemporary  (forecasted)  container  volume 
utilization  factor.   The  result  for  the   (J)th  POD  is  stored  in 
CSCB  (J) 

2.  Locate  the  first  vessel  data  in  the  container  vessel  stack  (list), 
and  go  to  h_. 

3.  Identify  the  next  vessel  data  in  the  container  vessel  stack; 
if  no  more  vessels  are  present,  return  to  the  calling  program. 

h.      Identify  the  POD  to  which  the  vessel  is  destined. 

5.  If  the  vessel  will  arrive  in  less  than  CTDEL  days,  go  to  3. 
(CTDEL  is  the  time  required  to  dispatch,  stuff,  and  transfer 
containers  back  to  the  pier.) 

6.  Are  there  any  containers  available  for  booking  on  the  vessel? 
If  not  go  to  3. 

7.  Calculate  the  net  cargo  booking  requirements  by  taking  the  on-hand 
cargo  volume  for  the  POD,  adding  the  forecasted  volume  that  will 
arrive  between  now  and  the  latest  effective  stuffing  date,  and  sub- 
tracting the  volume  already  booked   (CSCB).   The  forecasted  volume 
is  adjusted  by  the  CFAE  factor. 

8.  If  net  requirements  are  less  than  zero,  go  to  3. 

9.  Given  the  container  type  of  the  vessel  section,  calculate  the  number 
of  containers  needed  to  meet  the  net  volume  requirements  calculated 
above . 


(1) 


10.  If  no  containers  are  needed,  go  to  3. 

11.  If  there  are  no  remaining  unbooked  basic  reserve  containers  go  to  13 . 

12.  Allocate  basic  reserve  containers  to  the  request.   This  is  done  by 
decrementing  the  unbooked  basic  reserve,  and  incrementing  the  number 
of  containers  booked  for  the  stuffing  station.  Also,  the  outstanding 
booked  cargo  and  container  volumes  are  updated. 


13 
Ik, 


Are  there  any  beyond  basic  reserve  containers  available? 
go  to  3. 


If  not, 


Is  a  booking  possible?   If  not,  go  to 
following  random  fashion.   Let  ARDEL 


3.   This  is  determined  in  the 
equal  the  number  of  days  before 


the  vessel's  arrival.   If  ARDEL   is  less  than  CSTRT,  then  reject 
the  request.   If  ARDEL  is  greater  than   (CSTRT  +  CRNG),  then  accept 
the  request  XCMXLB  of  the  time.   If  ARDEL   is  between  CSTRT)   and 
(CSTRT  +  CRNG),   then  accept  the  request   ((ARDEL  -  CSTRT)/CRNG)  * 
XCMXLB  of  the  time.   In  simple  terms,  the  probability  of  accepting  a 
booking  request  increases  the  farther  it  is  in  advance  of  the  vessel's 
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arrival . 

15.  Given  that  the  booking  request  is  accepted,  the  number  of  containers 
to  be  booked  is  now  determined.   If  CDSTYP   equals  zero,  then  all 
unbooked  beyond  basic  reserve  containers  are  made  available  to  the 
request.   If  CDSTYP   equals  one,  only  a  uniformly  distributed  random 
portion  of  the  containers  are  made  available. 

16.  For  the  containers  booked,  decrement  the  remaining  number  of  unbooked     (300U) 
beyond  basic  reserve  containers,  increment  the  number  of  containers 

booked  for  the  stuffing  station,  and  update  the  outstanding  booked 
cargo  and  container  volume  data.   Go  to  3. 
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FLOW  CHART  OF  THE  CONTAINER  LIFT  ROUTINE 
(Subroutine  CL) 
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CONTAINER  LIFT  ROUTINE  STEP  ANNOTATION 


1.  Are  there  any  vessels  in  the  container  vessel  stack?   If  not,  return      (2) 
to  the  calling  program. 

2.  Does  the  vessel  arrive  today?   If  not  return  to  the  calling  program. 

3.  Identify  the  POD,  and  voyage  number.   Also,  initialize  to  zero  the 
following  accumulators: 

Total  Number  of  Containers    (TOTN) 

Total  Number  of  Single  Consignee  Containers   (TOTNSC) 

Total  Volume  of  Cargo,  cubic  feet   (TOTC) 

Total  Weight  of  Cargo,  pounds   (TOTW) 

Total  Container  Ages   (TCAGE) 

Total  Number  of  Shipments   (ITSH) 

Total  Age  of  Shipments   (ITAGE) 

Total  Number  of  Shipment  Segments   (ITPARC) 

k.      Search  through  the  stuffed  container  stack  to  find  those  containers 
which  are  booked  on  the  arriving  vessel.   For  each  container  found, 
up-date  the  appropriate  accumulators  and  delete  the  record  from  the 
stack.   Continue,  this  until  all  containers  designated  for  the  vessel 
are  found. 

5.  Compare  the  number  of  containers  found  with  the  number  of  containers       (25) 
which  the  vessel  record  indicates  as  having  been  stuffed.  These  amounts 

must  be  equal. 

6.  Calculate  the  average  volume  and  weight  utilization  for  this  block  of 
containers.  Update  the  container  volume  utilization  forecast  (CFUT) 
using  the  exponentially  weighted  average  method. 

7.  Calculate  the  average  container  age  for  this  block  of  containers. 
Also,  calculate  average  shipment  age. 

8.  If  requested,  write  summary  data  concerning  this  block  of  containers 
on  logical  unit  UNTIO. 

9.  Tabulate  data  for  the  simulation  summary  output. 
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10.  Update  the  booked  container  volume  accumulator  by  reducing   (CVPB) 
by  the  volume  of  the  containers  which  were  booked  on  the  vessel, 
but  remain  unstuffed  in  the  empty  container  pool.   Also,  delete 
these  unused  containers  from  the  container  pool   (CNTPOL),   and 
delete  the  vessel  segment  record  on  which  tie  containers  were  booked, 

11.  If  requested _  write  miscellaneous  data  on  to  the  designated  output 
files.   Go  to  1. 
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FLOW  CHART  OF  THE  CONTAINER  DISPATCH  ROUTINE 
(Subroutine  CD) 
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CONTAINER  DISPATCH  ROUTINE  STEP  ANNOTATION 


1.  Identify  the  location  of  the  data  pertaining  to  the  first  vessel  in 
the  container  vessel  stack,  and  go  to  3. 

2.  Identify  the  location  of  the  data  pertaining  to  the  next  vessel  in 
the  container  vessel  stack. 

3.  Does  identified  location  indicate  that  no  more  vessel  records  exist? 
If  so,  then  return  to  the  calling  program. 

h.      If  the  vessel  arrives   CSATT  days  from  now,  then  go  to  the  next 

step.  If  the  vessel  arrives  in  less  than  CSATT  days,  then  go  to 

2.   If  the  vessel's  arrival  is  greater  than  CSATT  days,  then  return 

to  the  calling  program. 

5.   Dispatch  the  number  of  containers  booked  for  the  stuffing  station 
to  the  empty  container  pool,  and  go  to  2. 
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FLOW  CHART  OF  THE  MAIN  PROGRAM 


C  START    J S 1  J ^2  \ 


<0-<D 
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MAIN  PROGRAM  STEP  ANNOTATION 


1.  Initialize  record  pool  parameters  RECSIZ,  MXUREC ,   and  LSTREC . 
RECSIZ   and  MXUREC  must  be  set  to  ten  and  zero  respectively. 
LSTREC  must  be  set  to  the  dimension  of  the  REC()   array  less  the 
quantity   (RECSIZ  -  l) . 

2.  Read  the  logical  unit  number  file  which  designates  the  files  units  on 
which  the  transaction  reports  are  to  be  written. 

3.  Read  the  card  containing  simulation  run  parameters. 
k.      Read  six  files  containing  compacted  parametric  data. 

5.  Initialize  POD  and  consignee  accumulators,  and  set  stack  pointers 
to  zero. 

6.  Set  up  the  record  pool. 

7.  Calculate  delay  parameters,  and  initialize  time,  shipment,  and 
container  counters. 

8.  Initialize  operations  statistics  accumulators. 

9.  Print  designated  headings. 

10.  Increment  the  time  counter. 

11.  Is  the  current  time  a  multiple  of  seven?   If  not,  go  to  13. 

12.  Calculate  the  average  daily  volume  input  to  each  POD  by  taking  the 
volume  which  arrived  during  the  last  seven  days  and  dividing  that 

by  seven.   Then  using  the  exponentially  weighted  average  method, 
update  the  (forecast)  average. 

13.  Call  the  container  dispatch,  shipment  input,  stuffing,  vessel  input, 
container  lift,  and  booking  routines  in  the  above  order. 

lU .   Update  shipment  and  container  counters. 

15.  If  the  current  time  is  less  than  the  designated  simulation  length, 
go  to  step  10. 

16.  Calculate  and  print  operations  statistics,  and  stop. 
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APPENDIX  D 


Data  Analyses  Files  and  Programs 
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FORMAT  OF  POD  OPERATIONS  SUMMARY  FILE 

If  requested  in  the  simulation  program,  the  following  set  of  cards  are 
punched  for  each  POD. 


Card  1: 

Card  Columns 

1-2 

3 

4-11 

12-16 

17-21 

22-31 

32-37 

38-43 

44-49 

50-55 

56-66 

67-72 

73-80 


Contents 

POD  sequence  number 

1  will  be  punched  in  this  column 

Number  of  shipments  stuffed   (F8.0) 

Average  age  of  shipments  at  stuff   (F5.2) 

Standard  deviation  of  age   (F5.2) 

Stuffed  cargo  volume,  cubic  feet   (F10.0) 

Single  consignee  cargo  proportion   (F6.4) 

Container  volume  utilization  proportion   (F6.4) 

Volume  utilization  for  single  consignee  vans   (F6.4) 

Volume  utilization  for  mixed  vans   (F6.4) 

Stuffed  cargo  weight,  pounds   (F11.0) 

Container  weight  utilization  proportion   (F6.4) 

Simulation  run  code   (2A4) 


Card  2 


1-2 

3 

4-8 

9-14 


POD  sequence  number 
2  will  be  punched  in  this  column 
Duration  of  simulation,  days   (F5.0) 
Average  shipments  stuffed  per  day   (F6.1) 
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15*-21  Average  volume  stuffed  per  day   (F7.1) 

22-29  Average  weight  stuffed  per  day   (F8.1) 

30-34  Number  of  lifts  (F5.0) 

35-40  Average  time  between  lifts,  days   (F6.2) 

41-46  Standard  deviation  of  time  between  lifts   (F6.2) 

47-52  Average  container  age,  days   (F6.2) 

53-58  Standard  deviation  of  container  age   (F6.2) 

73-80  Simulation  run  code  (2A4) 

Card  3: 

1-2  POD  sequence  number 

3  3  will  be  punched  in  this  column 

4-5  Container  type  sequence  number 

6-9  Number  of  single  consignee  containers  stuffed 

10-17  Number  of  shipments  stuffed  into  single  consignee 

containers. 

18-23  Volume  utilization  proportion  for  single  consignee 

vans.   (F6.4) 

24-33  Cargo  volume  stuffed  into  single  consignee  vans 

(F10.0) 

73-80  Simulation  run  code 

Card  4: 

1-2  POD  sequence  number 

3  4  will  be  punched  in  this  column 

The  information  punch  in  card  3  was  for  single  consignee 
vans;  the  same  information  in  the  same  format  is  punched 
for  mixed  vans  on  card  4. 
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Card  5: 

1-2  POD  sequence  number 

3  5  will  be  punched  in  this  column 

The  information  for  both  single  and  mixed  consignee  vans 
will  be  punched  on  card  5  in  the  same  format  as  cards  3 
and  4.   Also,  the  following  information  will  be  included 
on  card  5. 

34-39  Average  days  between  lifts  for  the 

container  type.   (F6.2) 

40-45  Standard  deviation  of  days  between  lifts   (F6.2) 


The  cards  3  through  5  will  be  repeated  for  each  container  type  serving 
the  POD. 
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Card  Columns  Contents  Type 

2-4  POD  mnemonic  A/N 

6-11  Consignee  mnemonic  A/N 

13-18  Breakbulk  point  mnemonic  A/N 

19-22  POD  serial  number  I 

23-26  Consignee  serial  number  I 

27-30  Breakbulk  point  serial  number  I 

31-35  POD  volume  proportion  times  10000                 I 

36-42  Total  cargo  volume  received  by  consignee 

(cubic  feet)  I 

43-47  Total  number  of  shipments  received  by  the 

consignee  I 

48-54  Average  age  of  shipments 

(age  at  stuff,  days)  F 

55-61  Total  cargo  volume  received  in  single  consignee 

vans  (cubic  feet)  I 

62-67  Proportion  of  volume  received  in  single  consignee 

vans  F 

68-74  Volume  received  by  the  breakbulk  point  serving 

the  consignee  (cubic  feet)  I 
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FORMAT  OF  THE  PERFORMANCE  TRADE  OFFS  REGRESSION  CARD  FILE 

(One  card  for  each  POD  and  each  simulation  run.) 

(This  file  is  produced  by  the  POD  Operations  Summary 
Selection  Program.) 


Card  Columns 

1-3 

4-8 

9-14 

15-20 

21-26 

27-32 

73-80 


Contents 

POD  number.   (I) 

Average  cargo  age  at  stuff,  days.   (F5.2) 

Single  consignee  cargo  proportion.   (F6.4) 

Container  volume  utilization  proportion.   (F6.4) 

Cross  product  of  above  two  fields.   (F6.4) 

The  proportion  of  single  consignee  shipments.   (F6.4) 

Alphanumeric  run  code  of  the  simulation  run  which 
produced  this  data. 
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PROGRAM  DECK  USED  FOR  LOADING  POD  OPERATIONS  SUMMARY 
CARDS  ON  TO  A  PERMANENT   FILE 


//BOX$101A    JOB    (0826,0232FP,55HJ),» J.P.HYNES' 

//    EXEC    FORTCLG 

//FORT.SYSIN    DO    * 

C  THIS    PROGRAM    TRANSFERS    CARD    IMAGES    FROM    LOGICAL    UNIT    5    TO    11 

INTEGER**    DATA 

DIMENSION      DATA(20I 

NREC=0 

1  READ(5,2.END*3)    DATA 

2  FORMAT (20A4) 
NREC  =  NREC  +1 
WRITEdl.  2)       OATA 
GG  TO  1 

3  WRITE(6,11)  NREC 

11  FORMAT* •  NUMBER  OF  RECORDS  TRANSFERED  =«,I7) 

STOP 

END 
/* 

//GO.FTllFOOl  DO  UNIT=2314, DSNAME=F0826.0A2Q3P3, 
//        DISP= (MOD, KEEP ),VOLUME=SER= LINDA, 
//        LABEL=EXPDT=74180.SPACE=(CYL,2), 
//        DCB=(RECFM=FB,LRECL=80,BLKSIZE=7280) 
//GO.SYSIN  DD  * 

(POD  OPERATIONS  SUMMARY  CARDS  GO  HERE) 

/* 
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POD  OPERATIONS  SUMMARY  SELECTION  PROGRAM  DECK 

//BOX$101Z  JOB  (0826, 0232FP,55HJ) ,« J.P.HYNES* 

//  EXEC  FORTCLGP 

//FORT.SYSIN  DD  * 

C      POD  OPERATIONS  SUMMARY  SELECTION  PROGRAM 

C      THIS  PROGRAM  SELECTS  SPECIFIC  SIMULATION  OUTPUT  DATA  FROM 

C  THE  POD  OPERATIONS  SUMMARY  CARD  FILE,  AND  PUNCHES  IT  ON 

C         CARDS,   THESE  CARDS  ,  IN  TURN,  ARE  USED  IN  REGRESSION 

C  PROGRAMS.   THESE  PUNCHED  CARDS  ARE  REFERRED  TO  AS  THE 

C  PERFORMANCE  TRADE  OFFS  REGRESSION  CARD  FILE. 

C      FILE  11  IS  THE  FILE  CONTAINING  THE  POD  OPERATIONS  SUMMARY  CARD 

C  IMAGES  FOR  THE  RUNS  WHOSE  DATA  IS  BEING  SELECTED. 

C      THE  FIRST  PORTION  OF  THE  PROGRAM  SCANS  THE  DATA  FILE  IN  ORDER 

C         TO  DETERMINE  ITS  STRUCTURE. 

C      THE  SECOND  PHASE  SELECTS  AND  SUMMARIZES  DATA  FOR 

C  PUNCHING  ON  CARDS. 

C      NR=  NUMBER  CF  RUNS 

C      NP=  NUMBER  OF  PODS 

C      NC(I,J)  =  NUMBER  OF  CONTAINER  TYPES  USEO  FOR  PCD  (I),  RUN  (J). 

IMPLICIT  INTEGER*2  (A-W) 

IMPLICIT  INTEGER**  (X) 

IMPLICIT  REAL*4  (Y) 

IMPLICIT  REAL*8  (Z) 

DIMENSION  NPR(40) 

DIMENSION   NC(30,40) 

NR  =  0 

3  READ(11,2,END=8)  P,C , XRN1,XRN2 
2  FORMAT* 12,11, 69X,2A4) 

IF(NR.EQ.O)  GO  TO  7 

IF((XLR1.NE.XRN1).0R.(XLR2.NE.XRN2) )  GO  TO  5 
IF(LP.EQ.P)  GO  TO  4 
NC(NP,NR)=(NCPC-2)/3 

6  NP=NP+1 
LP  =  P 
NCPC=0 

4  NCPC=NCPC  +  1 
GO  TO  3 

5  NPR(NR)=NP 
NC(NP,NR)=(NCPC-2)/3 

7  NR=NR+1 
XLR1=XRN1 
XLR2=XRN2 
NP=0 

GO  TO  6 

8  NC(NP,NR)=(NCPC-2)/3 
NPR(NR)=NP 
WRITE(6,11)  NR.NP 

11  FORMATP  NUMBER  OF  RUNS=,,I5,«.    NUMBER  OF  PODS  IN  LAST  RUN=',I5) 
REWIND  11 

DO  21  J=1,NR 
NP=NPR( J) 

READ  ( lit  2^PP0D,      YTM.     YSC  ,  YVU,  XRN1 ,  XRN2 

22  FORMAT( I  2, 1X,8X, F5.2 , 5X , lOX,       2F6.4, 29X, 2A4) 
NCT=NC( I, J) 

READ(11,26)     XDUMMY 
26    F0RMATU4) 
XTNS=0 
XTNSCS=0 
DO    23    K=1,NCT 
READ(11,24)     XNSCS,XNLS 

24  FORMAT(       9X, 18 ,// ,9X , I  8  ) 
XTNSCS=XTNSCS+XNSCS 

23  XTNS=XTNS   +    XNLS 
YSPSC=FLOAT(XTNSCS)/FLOAT(XTNS ) 
YCSU=    YSC*YVU 

WRITE (7, 25)    P0D,YTM,YSC,YVU,YCSU,YSPSC,XRN1,XRN2 

25  F0RMAT(I3,F5.2,4F6.4,40X,2A4) 
21    CONTINUE 

STOP 
END 

7/G0.FT11F001    DD    UN IT=2314, DSNAME= F0826 .0A2Q3P3, DI SP=( OLD ,KEEP) , 
//  VOLUME =SER*L I NDA, LABEL= ( , , , IN) 

/*      . 
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CONSIGNEE  DATA  SUMMARY  PROGRAM  DECK 

//HYN$101K  JOB  (0826t0232FP,55HJ), • J .P.HYNES » , TIME=9 

//  EXEC  FORTCLGP, REGION. G0=58K 

//FORT.SYSIN  DO  * 

C      CONSIGNEE  DATA  SUMMARY  PROGRAM 

C      THIS  PROGRAM  SUMMARIZES  CONSIGNEE  CARGO  PERFORMANCE  DATA,  AND 

C  PUNCHES  THE  CONSIGNEE  OPERATIONS  SUMMARY  FILE. 

C      UNIT  21  IS  THE  FILE  WHICH  CONTAINS  THE  SHIPMENT  SEGMENT  STUFF 

C  TRANSACTION  REPORTS. 

C      UNIT  24  IS  THE  CONDENSED  SERIAL  FILE  (IT  PROVIDES  THE  CONSIGNEE 

C  MNEMONICS.) 

IMPLICIT  INTEGER*2  (A-W) 

IMPLICIT  INTEGER**  (X) 

IMPLICIT  REAL*4  (Y) 

IMPLICIT  REAL*8  (Z) 

DIMENSION  XTCV(600),XSCV(600) ,XBPV(100) ,XCS ( 6  00) , XTSAt 600  ) 

DIMENSION  DATA(10),TV(600) 

NBBP=100 

NCON=600 

PNCH=0 

PNCH=1 

DO  4  I=1,NBBP 

4  XBPVd  )=0 

DO  5  I*1,NC0N 
XTCV(I)=6 
XSCV( I)=0 
XCS(I)=0 

5  XTSA(I)=0 

16  DO  17  I*1,NC0N 

17  TV(I)=0 

14  READ(21,11,END=12)  DATA 

11  F0RMAT(10A2) 
IF(DATA(l).EQ.ll)  GO  TO  13 
C=DATA(8) 

X=DATA(4) 

XTCV(C)=XTCV(C)+  X 
TV(C)=TV(C)+X 
IF(DATA(3).LT.l)  GO  TO  14 
XCS(C)=XCS(C)  ♦  1 
X=DATA(9) 

XTSA(C)=XTSA(C)  +  X 
GO  TO  14 
13  X=DATA(5) 
B=DATA(10) 
XBPV(B)=XBPV(B)+X 
IF(DATA(9).LT.l)  GO  TO  16 
DO  15  I=1.NC0N 
XSCV(I)=X$CV(I)-»-TV(I) 

15  TV(I )=0 
GO  TO  14 

12  READ(24,1,END=2)  XPOD , XCN1,CN2 , XBP1,BP2 , SCN, SPOD,SBP, PR P 

1  F0RMAT(A3,2(A4,A2),4A2) 
C 

C 

YAGE=0.0 

YSCP=0.0 

IF(XCS(SCN).LT.l)  GO  TO  18 

YAGE=FLOAT(XTSA(SCN) ) /FLOAT (XCS( SCN ) ) 

YSCP=FLOAT(XSCV(SCN) ) /FLOAT ( XT CV ( SCN) ) 

18  CONTINUE 

WRITE (6, 21)  XPOD. XCN1 . CN2.XBP1 .BP2.SP0D, SCN,  SBP.PRP. 

*  XTCV(SCN),XCS(SCN) ,YAGE,XSCV ( StN) , YSCP,XBPV(SBP) 
IF(PNCH.EQ.1)WRITE(7,21)  XPOD • XCN1.CN2, XBP1, BP2. SPOD, SCN, SBP , PRP , 

*  XTCV(SCN) .XCS(SCN) , YAGE, XSCV ( SCN ) , YSCP.XBPV ( SBP ) 

21  F0RMAT(lX,A3,lX,A4,A2,lX,A4,A2,3I4,I5,I7,l5,F7.3,I7,F6.3,  17) 
GO  TO  12 

2  STOP 
/*     END 

//G0.FT21F001  DD  DSNAME=F0826.SACTQ3P3, UNIT=2400,DI SP= (OLD, KEEP) , 

//  V0L=SER=NPS106,LABEL-(1,SL), 

//  DCB=(RECFM=FB.LRECL=2  8,BLKSIZE=3976) 

//G0.FT24F001  DD  DSNAME=F0826.MT024 , UN IT=2314, VOL=S ER=LINDA, 

//        DISP=(OLD,KEEP),LABEL=(,,,  IN) 

/* 
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CONSIGNEE  CARGO  AGE  HISTOGRAM  PROGRAM  DECK 


/VBOX$101H    JOB    (0826,0232FT,55HJ),» J.P.HYNES»,TIME=4 

//    EXEC    FORTCLG, REGION. GO=100K 

C  CONSIGNEE    CARGO    AGE    HISTOGRAM    PROGRAM 

C  UNIT    16    IS    THE    ABBREVIATED    SHIPMENT    STUFF    TRANSACTION    REPORT    FILE, 

//FORT.SYSIN    00    * 

C    PROGRAM    TO    PLOT    A    HISTOGRAM    OF    AGE    VS.    FREQUENCY    OF    OCCURRENCE 

C  FOR    SOME    NUMBER    OF    CONSIGNEES 

C 

REAL*4  XAGE,SAGE,SAGE2,XNUM,XSD 

INTEGER*2  T I  ME , DO A, PTCN,POD, CON, AGE,KCON 

INTEGER*4  AGE4 

DIMENSION  RANGE(20),FREQ(20)  , I  CON (100) , TITLE ( 24) , KCCN( 1500 ) 
C    IN  IS  THE  NUMBER  GF  INTERVALS,  LE  20 
C    FREQ  IS  A  VECTOR  OF  FREQUENCIES,  LT  10,000 
C    RANGEIS  A  VECTOR  OF  MID-POINTS  FOR  EACH  INTERVAL 
C    TITLE  IS  A  VECTOR  OF  24  WORDS 
C 

C    MAXIMUM  NUMBER  OF  INTERVALS  BEING  USED  IN  THIS  CASE 
C    K  IS  DEVICE  NUMBER  WHERE  AGED  CARGO  DATA  RESIDES 

K=16 

IN=20 
C 
C    CHANGE  THE  VALUE  OF  RANGE(l)  TO  THE  MID-PCINT  OF  THE  FIRST  INTERVAL 

RANGE(1)=0.5 

DO  101  1*2,20 
C 
C  CHANGE  THE  ADDITIVE  CONSTANT  TO  THE  VALUE  CF  THE  INTERVAL  WIDTH 

RANGE( I )=RANGE(I-1)  +  1.0 

101  CONTINUE 
C 

C    READ  IN  THE  TITLE  TO  BE  USED  ON  THE  HISTOGRAM 

C       TITLE  USES  A  MAXIMUM  OF  96  CHARACTERS 

C  48  CHARACTERS  ON  FIRST  CARD,  48  CHARACTERS  ON  SECOND  CARD 

C       ITIME  STARTS  IN  SPACE  51  (15),  NCON  IN  SPACE  56  (15) 

102  READ(5, 103, END=112 ) ( T ITLE( I ) ,1=1, 24), ITIME, NCON 

103  F0RMAT(12A4,/,12A4,2X,2I5) 
C 

C    READ  IN  CONSIGNEES  AS  ICGN  UP  TO  THE  NUMBER  SPECIFIED  BY  NCON 
C    ICON  IS  CONSIGNEE  SEQUENCE  NUMBER 

C       ICON  IS  IN  FORMAT  14,  18  CONSIGNEES  TO  A  CARD 
READ(5,104)(IC0N(I), 1=1, NCON) 

104  F0RMAT(18I4) 

DO  105  1=1,1500 

105  KC0N(I)=1 

DO  106  1=1. NCON 

106  KCONUCONU  )  )=2 
DO  107  J=l,20 
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FREQ(J)=0.0 

107  CONTINUE 
NUMB=0 
SAGE=0.0 
SAGE2=0.0 

C 

C    READ  DATA  FROM  DEVICE  DESIGNATED  BY  K  IN  DATA  STATEMENT 

108  READ(K,109,END=110)TIME,AGE,C0N 

109  F0RMATOA2) 
IF(TIME.LT.ITIME)GOTO    108 
IF(KC0N(C0N).EQ.1)G0T0    108 

C 

IAGE=AGE/7  +  1 
C 
C    CALCULATE  MEAN  AND  STANDARD  DEVIATION 

AGE4=AGE 

XAGE=FL0AT(AGE4) 

SAGE^SAGE  +  XAGE 

SAGE2=SAGE2  +  XAGE**2 

NUMB=NUMB  +  1 

IF(IAGE.GT.20)IAGE=20 

FREQ(IAGE)=FREQ(IAGE)+1 

GOTO  108 

110  CALL  HISTC< IN, FREQ, RANGE, TITLE) 
XNUM=FLOAT(NUMB) 
XMEAN-SAGE/XNUM 

XSD=SQRT((SAGE2  -  ( ( SAGE**2 ) /XNUM  )  )/XNUM ) 
WRITE(6,111)XMEAN,XSD 

111  FORMAT(»  ■»•      MEAN  =,,F6.2,«    STANDARD  DEVIATION  =»,F6.2) 
REWIND  K 

GOTO  102 

112  STOP 
END 

C  SUBROUTINE  HISTO 

C 

C  PURPOSE 

C  PRINT  A  HISTOGRAM  OF  FREQUENCIES  VERSUS  INTERVALS 

C 

C  USAGE 

C  CALL  HISTOl IN, FREQ, RANGE, TITLE) 

C 

C  DESCRIPTION  OF  PARAMETERS 

C  IN        NUMBER  OF  INTERVALS  ( ABS( IN) .LE ,20 ) 

C  IF  IN  IS  POSITIVE,  THE  VALUES  OF  RANGE  ARE  PRINTED 

C  AS  FLOATING  POINT  VALUES  (F5.2).  IF  IN  IS  NEGATIVE 

C  THE  VALUES  OR  RANGE  ARE  PRINTED  AS  INTEGERS  (15). 

C  FREQ   -  VECTOR  OF  FREQUENCIES 

C  RANGE  -  VECTOR  OF  MID-POINTS  OF  EACH  INTERVAL,  IN  ONE-TO-ONE 

C  CORRESPONDENCE  WITH  ELEMENTS  OF  FREQ.  SEE  PARAMETER 

C  IN  FOR  SIZE  SPECIFICATION  LIMITS. 

C  TITLE  -  VECTOR  OF  24  WORDS  CONTAINING  A  TITLE  TO  BE  PRINTED 

C  AT  THE  TOP  OF  THE  HISTOGRAM.  MUST  BE  SET  TO  BLANKS 

C  IN  THE  CALLING  PROGRAM  WHEN  NOT  USED. 

C 

C  REMARKS 

C  THE  USER  MUST  SCALE  HIS  OWN  DATA  FOR  VECTORS  FREQ  AND  RANGE 

C  IF  THEY  DO  NOT  FALL  WITHIN  THE  PRESCRIBED  LIMITS. 

C  FREQUENCIES  MUST  BE  POSITIVE  NUMBERS. 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS 

C  NONE 

C 

C  METHOD 

C  THE  MAXIMUM  FREQUENCY  IS  DETERMINED.  SCALING  IS  USED  WHEN 

C  THE  MAXIMUM  EXCEEDS  60.  WHICH  IS  THE  NUMBER  OF  LINES  USED 

C  TO  PRINT  THE  HISTOGRAM.  THE  SCALE  IS  PRINTED  AT  THE  BOTTOM 

C  OF  THE  PAGE. 


C 


SUBROUTINE  HI STO( IN, FREQ. RANGE ,T ITLE ) 

DIMENSION  FREQ (20), RANGE (20) , JOUT (20) ,TI TLE(24) 

DATA  NOTH/'      •/,K/*****«/ 

WRITE  (6,4)  TITLE 

FORMAT ( ,1',//,8X, 12A4 , / ,8X, 12A4/ ) 

JN=IN 
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INT=0 

IF(JN.GT.O)    GO    TO    10 

INT=1 

JN=-JN 
10    00    12    1*1, JN 
12    JOUT(I)=FREQ(I) 

WRITE    (6,5)     (JOUTd)  ,1  =  1. JN) 

5  FORMAT( 'OFREQUENCY' ,2016) 
WRITE    (6,7) 

7    FORMATd    -•  ,128('-»  )  ) 
C  FIND    LARGEST    FREQUENCY 

FMAX=0. 

DO    20    1=1, JN 

IF(FREQ( iI.GT.FMAX)     FMAX=FREQ(I) 
20    CONTINUE 
C  SCALE 

JSCAL=1 

IF(FMAX.GT.60.)    JSCAL= ( FMAX+59 . ) /60. 

FSCAL=JSCAL 

DO  50  I  =  1,JN 

50  JOUTd  )=NOTH 
MAX=FMAX/FSCAL 
DO  80  1=1, MAX 
X=MAX-( 1-1) 

DO  70  J=1,JN 

IF(FREQ( JJ/FSCAL.GE.X)  JOUT(J)=K 
70  CONTINUE 

IX=X*FSCAL 
80  WRITE  (6,2)  IX, ( JOUT ( J ) , J=l , JN) 

2  F0RMAT(I6,4X,20(2X,A4) ) 
WRITE  (6,7) 

IF( INT.EQ.l)  GO  TO  16 

WRITE  (6.3)  (RANGE(J) ,J=1,JN) 

3  FORMAT ( ,0INTERVAL,,2X,19(F5.2,1X) ,F5.2//) 
GO  TO  15 

16  DO  51  I=1,JN 

51  JOUT(I)=RANGE(I) 

WRITE  (6,6)  (JOUTd  )  ,1  =  1. JN) 

6  FORMAT ( •0INTERVAL,,2X,19(I5,1X), 15//) 
15  WRITE  (6,1)  K,JSCAL 

1  FORMAT( 'OEACH  ',A4,«  EQUALS  ',13,'  POINTS1/) 
RETURN 
END 

/* 

//G0.FT16F001  DD  DISP=( OLD , KEEP) , UNIT=2321, VCLUME=SER=CEL003, 

//  DSNAME=F0826.MT016,LABEL=(,,,IN) 

//GO.SYSIN  DD  * 

HISTOGRAM  PLOT  OF  CARGO  AGE  VERSUS  FREQUENCY  OF 

OCCURRENCE  FOR  CONSIGNEE  NUMBER  2  0     1 

2 
HISTOGRAM  PLOT  OF  CARGO  AGE  VERSUS  FREQUENCY  OF 
OCCURRENCE  FOR  CONSIGNEE  NUMBER  3  0     1 

3 

/* 
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APPENDIX  E 

Sample  Card  Control  and  Data  Inputs  and  Outputs  of  the 

Simulation  Program 
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APPENDIX  F 


Simulation  Transaction  Report  Record  Formats 
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Transaction:   Container  Waiver 


Report  Record  Identification  Number 


Usage:   When  a  container  is  stuffed,  but  does  not  meet  the  minimum 
cube  load  requirement  because  of  the  nature  of  the  next 
loadable  shipment  (size,  weight,  type,  etc.) ,  then  the 
following  data  is  reported  on  logical  unit  UNT01. 

(The  container  is  closed  out  and  transferred  to  the  stuffed 
container  stacks.) 


Fields: 

1.  Record  ID   (1) 

2.  Current  day 

3.  Cube  utilization  (percent) 

4.  Weight  utilization  (percent) 

5.  The  serial  number  assigned  to  the  container.   (This  number 
will  be  negative  if  the  van  is  not  single  consignee.) 

6.  Stuffing  list  identification  number.   (The  van  was  stuffed 
from  the  identified  stuffing  list.) 

7.  The  number  of  consignees  whose  shipments  were  loaded  in  the 
van. 

8.  POD  (sequence  number) 

9.  Container  type  (sequence  number) 

10.  Number  of  shipment  segments  loaded  in  the  van. 

11.  Number  of  dated  shipment  segments 

12.  Total  age  of  dated  segments 
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Transaction:   Shipment  Segment  Stuff 
Report  Record  Identification  Number: 


Usage:   When  a  shipment  segment  is  loaded  into  a  container, this 
data  is  reported  on  logical  unit  UNT02. 


Fields: 

1.  Record  ID   (2) 

2.  Current  day 

3.  Shipment  Serial  Number.   (This  number  will  be  negative  if 
the  shipment  is  not  the  last  segment  of  a  split  shipment.) 

4.  Segment  volume  (cubic  feet) 

5.  Weight  of  segment  (pounds) 

6.  Date  of  shipment's  arrival  at  the  terminal 

7.  POD  (sequence  number) 

8.  Consignee  (sequence  number) 

9.  Age  of  segment  when  stuffed,  (days) 
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Transaction:   Loaded  Vessel 
Report:   Vessel  Status 

Report  Record  Identification  Number:   3 


Usage:    Data  on  unbooked,  booked,  and  lifted  containers  is  reported 

when  a  vessel  departs  the  system;  it  is  reported  on  logical 

unit  UNT03.   (Note:   One  transaction  is  reported  for  each 
POD  container  block  of  the  vessel.) 


Fields: 

1.  Record  ID   (3) 

2.  Current  day 

3.  Number  of  booked  containers  which  were  not  used.   (Cancelations) 

4.  POD  (sequence  number) 

5.  Container  Type  (sequence  number) 

6.  Voyage  Code  Number 

7.  Number  of  Unbooked  MSC  reserve  containers 

8.  Number  of  unbooked  containers  beyond  MSC  reserve 

9.  Number  of  containers  lifted  aboard 
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Transaction:   Loaded  Vessel 
Report:   Container  Status 

Report  Record  Identification  Number:   10 


Usage:   When  each  block  of  identical  type  containers  destined  for 
the  same  POD  are  lifted  aboard  a  vessel,  this  data  is 
reported  on  logical  unit  UNT10. 


Fields: 

1.  Record  ID   (10) 

2.  Current  day 

3.  Average  age  of  containers  in  the  group  times  100 

4.  Total  number  of  containers  in  the  group 

5.  Total  number  of  single  consignee  containers  in  the  group 

6.  POD  (sequence  number) 

7.  Average  cube  utilization  (percent  times  100) 

8.  Average  weight  utilization  (percent  times  100) 

9.  Container  type  (sequence  number) 

10.  Voyage  Code  Number 

11.  Number  of  shipment  segments 

12.  Number  of  dated  shipment  segments 

13.  Average  age  of  cargo  at  stuff  times  100 
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Transaction:   Container  Transfer 


Report  Record  Identification  Number:   11 


Usage:   When  a  container  has  been  loaded,  closed  out,  and  transferred 
to  the  stuffed  container  stacks,  this  data  is  reported  on 
logical  unit  UNTIL 


Fields: 

1.  Record  ID   (11) 

2.  Current  day 

3.  POD  (sequence  number) 

4.  Container  type  (sequence  number) 

5.  Volume  loaded  in  the  container  (cubic  feet) 

6.  Cube  utilization  (percent) 

7.  Weight  loaded  in  the  container  (hundredweight) 

8.  Weight  utilization  (percent) 

9.  The  serial  number  assigned  to  the  container.   (This  number 
will  be  negative  if  the  van  is  not  single  consignee.) 

10.  Stuffing  list  identification  number.   (The  van  was  stuffed 
from  the  identified  stuffing  list.) 

11.  The  number  of  consignees  whose  shipments  were  loaded  in 
the  van. 

12.  Number  of  segments  loaded  in  the  van 

13.  Number  of  dated  shipment  segments. 

14.  Total  age  of  dated  shipment  segments 
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Transaction:   Shipment  Stuff  (Abbreviated  Report) 
Report  Record  Identification  Number:   12 


Usage:   When  a  shipment  is  loaded  into  a  container,  this  data  is 
reported  on  logical  unit  UNT12.   This  report  is  different 
than  the  (02)  report  in  that  only  several  items  of  infor- 
mation are  reported.   Also,  this  shipment  stuff  data  is 
reported  only  when  the  shipment  serial  number  is  positive; 
that  is,  only  for  single  shipments  or  the  last  segment  of 
a  split  shipment. 


Fields: 

1.  Current  day 

2.  Age  of  shipment  when  stuffed,  (days) 

3.  Consignee,  (sequence  number) 


INITIAL  DISTRIBUTION  LIST 

Copies 

Defense  Documentation  Center  (DDC)  2 

Cameron  Station 
Alexandria,  VA  22314 

Defense  Logistics  Studies  Information  Exchange  (DLSIE)  2 

U.S.  Army  Logistics  Management  Center 
Fort  Lee,  VA   23801 

Library,  Code  0212  2 

Naval  Postgraduate  School 
Monterey,  CA  93940 

Dean  of  Research,  Code  023  1 

Naval  Postgraduate  School 
Monterey,  CA  93940 

Library,  Code  55  3 

OR/AS  Department 

Naval  Postgraduate  School 

Monterey,  CA  93940 

M.  J.  Zubkoff,  Code  1867  1 

Computation  &  Math  Department 
Naval  Ship  R&D  Center 
Bethesda,  MD  20034 

Commander,  WAMTMC  2 

Director  of  Plans 

Western  Area  Military  Traffic  Management  Command 

Oakland  Army  Base 

Oakland,  CA  94626 

Commander,  MTMC  2 

Military  Traffic  Management  Command 
Washington,  DC   20315 

LTCOL  M.  L.  Maloney  2 

MTMC-ITX 

Washington,  DC   20315 

Dr.  James  P.  Hynes  jq 

OR/AS  Department 

Naval  Postgraduate  School 

Monterey,  CA  9394C 

Captain  J.  Allender  1 

Planning  Office 
Naval  Supply  Center 
Oakland,  CA  94625 


VI 6^538 


DUDLEY  KNOX  LIBRARY  -  RESEARCH  REPORTS 


5  6853  01070287  1 


